diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2010-03-04 14:42:06 +0100 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2010-03-04 14:42:06 +0100 |
| commit | 33344e0febac971fc0cb646471ebe40757b7b056 (patch) | |
| tree | 6325ec39e002a0a13d9f40ab3a9376383b14befa /gcc/fortran/decl.c | |
| parent | 9ca872365c5b30dfb5eb04dbb5e88a68057bdd10 (diff) | |
| download | gcc-33344e0febac971fc0cb646471ebe40757b7b056.zip gcc-33344e0febac971fc0cb646471ebe40757b7b056.tar.gz gcc-33344e0febac971fc0cb646471ebe40757b7b056.tar.bz2 | |
re PR fortran/43244 (Invalid statement misinterpreted as FINAL declaration)
2010-03-04 Janus Weil <janus@gcc.gnu.org>
PR fortran/43244
* decl.c (gfc_match_final_decl): Make sure variable names starting with
'final...' are not misinterpreted as FINAL statements.
2010-03-04 Janus Weil <janus@gcc.gnu.org>
PR fortran/43244
* gfortran.dg/finalize_9.f90: New.
From-SVN: r157226
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 0f3898f..0466906 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -7810,8 +7810,18 @@ gfc_match_final_decl (void) bool first, last; gfc_symbol* block; + if (gfc_current_form == FORM_FREE) + { + char c = gfc_peek_ascii_char (); + if (!gfc_is_whitespace (c) && c != ':') + return MATCH_NO; + } + if (gfc_state_stack->state != COMP_DERIVED_CONTAINS) { + if (gfc_current_form == FORM_FIXED) + return MATCH_NO; + gfc_error ("FINAL declaration at %C must be inside a derived type " "CONTAINS section"); return MATCH_ERROR; |