diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-03-02 14:20:52 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-03-02 14:20:52 +0100 |
| commit | 6ee65df3f19d975ab2272531cc50c5dfc96bbf65 (patch) | |
| tree | 42fef2e2fc714c9afea910f55f30df76ddd7dc91 /gcc/fortran/primary.c | |
| parent | f18075fff5c1b445f7e8c5d452f29195ef50118e (diff) | |
| download | gcc-6ee65df3f19d975ab2272531cc50c5dfc96bbf65.zip gcc-6ee65df3f19d975ab2272531cc50c5dfc96bbf65.tar.gz gcc-6ee65df3f19d975ab2272531cc50c5dfc96bbf65.tar.bz2 | |
re PR fortran/52325 (unclear error: Unclassifiable statement)
2012-03-02 Tobias Burnus <burnus@net-b.de>
PR fortran/52325
* primary.c (gfc_match_varspec): Add diagnostic for % with
nonderived types.
2012-03-02 Tobias Burnus <burnus@net-b.de>
PR fortran/52325
* gfortran.dg/derived_comp_array_ref_8.f90: New.
* gfortran.dg/nullify_2.f90: Update dg-error.
* gfortran.dg/nullify_4.f90: Ditto.
* gfortran.dg/pointer_init_6.f90: Ditto.
From-SVN: r184785
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index d1d96ff..ae3a1f5 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -1910,6 +1910,19 @@ gfc_match_varspec (gfc_expr *primary, int equiv_flag, bool sub_flag, && gfc_get_default_type (sym->name, sym->ns)->type == BT_DERIVED) gfc_set_default_type (sym, 0, sym->ns); + if (sym->ts.type == BT_UNKNOWN && gfc_match_char ('%') == MATCH_YES) + { + gfc_error ("Symbol '%s' at %C has no IMPLICIT type", sym->name); + return MATCH_ERROR; + } + else if ((sym->ts.type != BT_DERIVED && sym->ts.type != BT_CLASS) + && gfc_match_char ('%') == MATCH_YES) + { + gfc_error ("Unexpected '%%' for nonderived-type variable '%s' at %C", + sym->name) + return MATCH_ERROR; + } + if ((sym->ts.type != BT_DERIVED && sym->ts.type != BT_CLASS) || gfc_match_char ('%') != MATCH_YES) goto check_substring; |