diff options
| author | Tobias Burnus <burnus@gcc.gnu.org> | 2011-01-26 11:12:47 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-01-26 11:12:47 +0100 |
| commit | 19d361071b4e622adf624a8a446a18cef89d43a4 (patch) | |
| tree | 722192447d3131faa8a3653d812ae2ca5689c8fe /gcc/fortran/match.c | |
| parent | 52fe3d5beeb035fb4ae717f79f9825bf1898b67c (diff) | |
| download | gcc-19d361071b4e622adf624a8a446a18cef89d43a4.zip gcc-19d361071b4e622adf624a8a446a18cef89d43a4.tar.gz gcc-19d361071b4e622adf624a8a446a18cef89d43a4.tar.bz2 | |
re PR fortran/47339 (Fortran 2003/2008: Valid NAMELIST rejected; Fortran 95: Invalid namelist objects accepted)
2011-01-26 Tobias Burnus <burnus@net-b.de>
PR fortran/47339
PR fortran/43062
* match.c (gfc_match_namelist): Allow assumed-length characters.
* resolve.c (resolve_fl_namelist): Adapt and add error messages.
* symbol.c (check_conflict): Allow allocatables in NML for
* F2003.
* trans-io.c (nml_get_addr_expr,transfer_namelist_element):
Changes due to that change.
2011-01-26 Tobias Burnus <burnus@net-b.de>
PR fortran/47339
PR fortran/43062
* fortran.dg/namelist_69.f90: New test.
* fortran.dg/namelist_70.f90: New test.
* fortran.dg/namelist_assumed_char.f90: Modify dg-error, augment
* test.
* fortran.dg/namelist_3.f90: Adapt test.
* fortran.dg/namelist_34.f90: Ditto.
* fortran.dg/namelist_35.f90: Ditto.
* fortran.dg/namelist_5.f90: Ditto.
* fortran.dg/namelist_63.f90: Ditto.
* gfortran.dg/alloc_comp_constraint_1.f90: Ditto.
From-SVN: r169282
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 70f5862..0793b8c 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -4030,13 +4030,6 @@ gfc_match_namelist (void) gfc_error_check (); } - if (sym->ts.type == BT_CHARACTER && sym->ts.u.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 (); - } - nl = gfc_get_namelist (); nl->sym = sym; sym->refs++; |