diff options
| author | Tobias Burnus <burnus@net-b.de> | 2007-08-19 22:08:14 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-08-19 22:08:14 +0200 |
| commit | e9c06563626f034b29c8ccb35b01632a3fede753 (patch) | |
| tree | 219c86311ab4522bd317eeca819f1b984e6769a3 /gcc/fortran/module.c | |
| parent | 434548f64ffd76cb2a8390935b2179d1a5a421e2 (diff) | |
| download | gcc-e9c06563626f034b29c8ccb35b01632a3fede753.zip gcc-e9c06563626f034b29c8ccb35b01632a3fede753.tar.gz gcc-e9c06563626f034b29c8ccb35b01632a3fede753.tar.bz2 | |
[multiple changes]
2007-08-18 Tobias Burnus <burnus@net-b.de>
* gfortran.h (gfc_is_intrinsic_typename): Add declaration.
* symbol.c (gfc_is_intrinsic_typename): New function.
* parse.c (decode_statement): Check for space in ABSTRACT INTERFACE.
(parse_interface): Use gfc_is_intrinsic_typename.
* decl.c (gfc_match_derived_decl): Ditto.
* module.c (gfc_match_use): Use gcc_unreachable() for
INTERFACE_ABSTRACT in switch().
2007-08-19 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/interface_abstract_2.f90: New.
* gfortran.dg/interface_abstract_1.f90: Fix typo.
From-SVN: r127626
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 2839386..00f3674 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -599,7 +599,6 @@ gfc_match_use (void) switch (type) { case INTERFACE_NAMELESS: - case INTERFACE_ABSTRACT: gfc_error ("Missing generic specification in USE statement at %C"); goto cleanup; @@ -659,6 +658,9 @@ gfc_match_use (void) case INTERFACE_INTRINSIC_OP: new->operator = operator; break; + + default: + gcc_unreachable (); } if (gfc_match_eos () == MATCH_YES) |