From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 2387 invoked by alias); 3 Oct 2007 18:51:27 -0000 Received: (qmail 2339 invoked by uid 48); 3 Oct 2007 18:51:15 -0000 Date: Wed, 03 Oct 2007 18:51:00 -0000 Message-ID: <20071003185115.2338.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/33539] Too much noise for zero-length character strings 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-10/txt/msg00248.txt.bz2 ------- Comment #1 from tkoenig at gcc dot gnu dot org 2007-10-03 18:51 ------- This may work: $ svn diff Index: resolve.c =================================================================== --- resolve.c (revision 128885) +++ resolve.c (working copy) @@ -6563,7 +6563,7 @@ resolve_charlen (gfc_charlen *cl) /* "If the character length parameter value evaluates to a negative value, the length of character entities declared is zero." */ - if (cl->length && !gfc_extract_int (cl->length, &i) && i <= 0) + if (cl->length && !gfc_extract_int (cl->length, &i) && i < 0) { gfc_warning_now ("CHARACTER variable has zero length at %L", &cl->length->where); (I do want a warning for a length that's less than zero, but exactly zero seems to be OK). -- tkoenig at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |tkoenig at gcc dot gnu dot | |org Severity|normal |enhancement http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33539