diff options
| author | Tobias Burnus <burnus@net-b.de> | 2014-10-06 07:57:57 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2014-10-06 07:57:57 +0200 |
| commit | 8b7a967ed4c20e00fc966e3d30a09fed74216dc7 (patch) | |
| tree | 3fd948e1c22f57c5745797415d9f60822a38992e /gcc/fortran/parse.c | |
| parent | 116886341f638b539387bc900bc513ebe5ad6696 (diff) | |
| download | gcc-8b7a967ed4c20e00fc966e3d30a09fed74216dc7.tar.gz | |
libgfortran.h (GFC_STD_F2015): Add.
2014-10-06 Tobias Burnus <burnus@net-b.de>
gcc/fortran/
* libgfortran.h (GFC_STD_F2015): Add.
* decl.c (gfc_match_implicit_none): Handle spec list.
(gfc_match_implicit): Move double intrinsic warning here.
* gfortran.h (gfc_namespace): Add has_implicit_none_export:1.
(gfc_set_implicit_none): Update interface.
* interface.c (gfc_procedure_use): Add implicit-none external
error check.
* parse.c (accept_statement): Remove call.
(verify_st_order): Permit that external-implict-none follows
implicit statement.
* symbol.c (gfc_set_implicit_none): Handle external/type
implicit none.
gcc/testsuite/
* gfortran.dg/implicit_14.f90: New.
* gfortran.dg/implicit_15.f90: New.
* gfortran.dg/implicit_4.f90: Update dg-error.
From-SVN: r215914
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 91650614ada..4539beb19a2 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -1950,9 +1950,6 @@ accept_statement (gfc_statement st) switch (st) { case ST_IMPLICIT_NONE: - gfc_set_implicit_none (); - break; - case ST_IMPLICIT: break; @@ -2142,7 +2139,7 @@ verify_st_order (st_state *p, gfc_statement st, bool silent) break; case ST_IMPLICIT_NONE: - if (p->state > ORDER_IMPLICIT_NONE) + if (p->state > ORDER_IMPLICIT) goto order; /* The '>' sign cannot be a '>=', because a FORMAT or ENTRY |