From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 25369 invoked by alias); 21 Dec 2007 20:57:01 -0000 Received: (qmail 25312 invoked by uid 48); 21 Dec 2007 20:56:49 -0000 Date: Fri, 21 Dec 2007 20:57:00 -0000 Message-ID: <20071221205649.25311.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug libfortran/34540] [4.3 Regression] cshift, eoshift, kind=1 and kind=2 arguments... In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "tkoenig at gcc dot gnu dot org" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2007-12/txt/msg02008.txt.bz2 ------- Comment #3 from tkoenig at gcc dot gnu dot org 2007-12-21 20:56 ------- The problem is with the lines if (dim->expr_type != EXPR_CONSTANT) { /* Mark this for later setting the type in gfc_conv_missing_dummy. */ dim->representation.length = shift->ts.kind; } else { gfc_resolve_dim_arg (dim); /* Convert dim to shift's kind to reduce variations. */ if (dim->ts.kind != shift->ts.kind) gfc_convert_type_warn (dim, &shift->ts, 2, 0); } For the test case, we take the first branch, which means we never adjust dim's kind. Jerry, you did some work in this area. I'mm CC: ing you on this in case this rings a bell. -- tkoenig at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |jvdelisle at gcc dot gnu dot | |org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34540