[Bug fortran/30481] Accepts namelist-group object with assumed character length

["pault at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #2 from pault at gcc dot gnu dot org  2007-01-18 14:27 -------
Confirmed.

With this patch:

Index: gcc/fortran/match.c
===================================================================
*** gcc/fortran/match.c (revision 120859)
--- gcc/fortran/match.c (working copy)
*************** gfc_match_namelist (void)
*** 2600,2605 ****
--- 2600,2612 ----
              gfc_error_check ();
            }

+         if (sym->ts.type == BT_CHARACTER && sym->ts.cl->length == NULL)
+           {
+             gfc_error ("Assumed character length '%s' in namelist '%s' at "
+                        "%C is not allowed", sym->name, group_name->name);
+             gfc_error_check ();
+           }
+
          if (sym->as && sym->as->type == AS_ASSUMED_SHAPE
              && gfc_notify_std (GFC_STD_GNU, "Assumed shape array '%s' in "
                                 "namelist '%s' at %C is an extension.",

you now get

pr30481.f90:3.18:

  namelist /abc/ c
                 1
Error: Assumed character length 'c' in namelist 'abc' at (1) is not allowed

If you feel like submitting/committing, please feel free.

Paul


-- 

pault at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2007-01-18 14:27:38
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30481