From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 5009 invoked by alias); 22 Jul 2007 19:42:49 -0000 Received: (qmail 4983 invoked by uid 48); 22 Jul 2007 19:42:41 -0000 Date: Sun, 22 Jul 2007 19:42:00 -0000 Message-ID: <20070722194241.4982.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/31639] [4.1/4.2/4.3] ICE in gfc_conv_constant, at fortran/trans-const.c:348 with len In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "dfranke 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-07/txt/msg02283.txt.bz2 ------- Comment #11 from dfranke at gcc dot gnu dot org 2007-07-22 19:42 ------- Reopening, the original testcase still fails for std=gnu. Sigh. For the record: an error is generated for -std=f95, std=f2003 and a warning for -std=gnu -pedantic. Currently testing ... Index: expr.c =================================================================== --- expr.c (revision 126826) +++ expr.c (working copy) @@ -1966,9 +1966,8 @@ && ap->expr->symtree->n.sym->ts.type == BT_CHARACTER && ap->expr->symtree->n.sym->ts.cl->length == NULL) { - if (gfc_notify_std (GFC_STD_GNU, "assumed character length " - "variable '%s' in constant expression at %L", - e->symtree->n.sym->name, &e->where) == FAILURE) + gfc_error ("assumed character length variable '%s' in constant " + "expression at %L", e->symtree->n.sym->name, &e->where); return MATCH_ERROR; } else if (not_restricted && check_init_expr (ap->expr) == FAILURE) -- dfranke at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- Status|RESOLVED |REOPENED Resolution|FIXED | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31639