diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2006-02-19 15:24:26 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2006-02-19 15:24:26 +0000 |
| commit | 3e1cf50075be169656ce3ce2b9ef33fdcaeb0bb1 (patch) | |
| tree | 7e6b3bd04608f088a0f80dc2b3cc893f1bca8e49 /gcc/fortran/match.c | |
| parent | c05f6d04cb428c8b4e443797b280cae8f005149d (diff) | |
| download | gcc-3e1cf50075be169656ce3ce2b9ef33fdcaeb0bb1.zip gcc-3e1cf50075be169656ce3ce2b9ef33fdcaeb0bb1.tar.gz gcc-3e1cf50075be169656ce3ce2b9ef33fdcaeb0bb1.tar.bz2 | |
re PR fortran/25054 (nonconstant bounds array cannot appear in a namelist)
2005-02-19 Paul Thomas <pault@gcc.gnu.org>
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 <pault@gcc.gnu.org>
PR fortran/25054
* gfortran.dg/namelist_5.f90: New test.
PR fortran/25089
* gfortran.dg/namelist_4.f90: New test.
From-SVN: r111268
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index a2b9c41..4c2fe1b 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; |