------- 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
