--- Comment #3 from dfranke at gcc dot gnu dot org 2007-07-25 22:09 ---
One should think, this code whould pick it up?!
/* Reject namelist arrays that are not constant shape. */
for (nl = sym->namelist; nl; nl = nl->next)
{
if (is_non_constant_shape_array (nl->sym))
--- Comment #2 from burnus at gcc dot gnu dot org 2007-07-24 13:49 ---
Index: resolve.c
===
--- resolve.c (revision 126873)
+++ resolve.c (working copy)
@@ -7040,6 +7044,13 @@ resolve_fl_namelist (gfc_symbol *sym)
/*
--- Comment #1 from pault at gcc dot gnu dot org 2007-05-05 09:53 ---
(In reply to comment #0)
> subroutine test(cha)
> implicit none
> character(len=10) :: cha(:)
> namelist /z/ cha
> end subroutine test
>
> See also:
> gfortran.dg/namelist_14.f90
>
> This is invalid:
> "5.4
