From 199bf9f50a5777ffad206e07f96443a8668f1b4c Mon Sep 17 00:00:00 2001 From: pault Date: Sun, 19 Feb 2006 15:24:26 +0000 Subject: 2005-02-19 Paul Thomas PR fortran/25054 * resolve.c (is_non_constant_shape_array): New function. (resolve_fl_variable): Remove code for the new function and call it. (resolve_fl_namelist): New function. Add test for namelist array with non-constant shape, using is_non_constant_shape_array. (resolve_symbol): Remove code for resolve_fl_namelist and call it. PR fortran/25089 * match.c (match_namelist): Increment the refs field of an accepted namelist object symbol. * resolve.c (resolve_fl_namelist): Test namelist objects for a conflict with contained or module procedures. 2005-02-19 Paul Thomas PR fortran/25054 * gfortran.dg/namelist_5.f90: New test. PR fortran/25089 * gfortran.dg/namelist_4.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111268 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/match.c | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/fortran/match.c') diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index a2b9c41d549..4c2fe1b71ce 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -2589,6 +2589,7 @@ gfc_match_namelist (void) nl = gfc_get_namelist (); nl->sym = sym; + sym->refs++; if (group_name->namelist == NULL) group_name->namelist = group_name->namelist_tail = nl; -- cgit v1.2.1