diff options
author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-05-14 15:26:03 +0200 |
---|---|---|
committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-05-14 15:26:03 +0200 |
commit | ee17cbda2e69d9d19d4664cef4f96ff180ca8c5b (patch) | |
tree | 673aa0b64dd4e884e45baa7292b1e559403f3942 /gcc/fortran | |
parent | 9fc4d79ba4e0abc41cb6ee48debc6a2308f22a75 (diff) | |
download | gcc-ee17cbda2e69d9d19d4664cef4f96ff180ca8c5b.zip gcc-ee17cbda2e69d9d19d4664cef4f96ff180ca8c5b.tar.gz gcc-ee17cbda2e69d9d19d4664cef4f96ff180ca8c5b.tar.bz2 |
re PR fortran/15051 (Incorrect error for empty interface block)
testsuite:
PR fortran/15051
* gfortran.fortran-torture/compile/empty_interface_1.f90: New
test.
fortran:
PR fortran/15051
* parse.c (parse_interface): Allow empty INTERFACE, remove
seen_body.
Also added ChangeLog entry missing from previous commit, removed umlaut from ChangeLog, and fixed previous entry to use tabs.
From-SVN: r81841
Diffstat (limited to 'gcc/fortran')
-rw-r--r-- | gcc/fortran/ChangeLog | 32 | ||||
-rw-r--r-- | gcc/fortran/parse.c | 8 |
2 files changed, 27 insertions, 13 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index efd2a60..ab9f8ba 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,8 +1,30 @@ -2004-04-22 Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> - - PR fortran/14568 - * trans-decl.c (generate_local_decl): Don't warn for unused - variables which are in common blocks. +2004-05-08 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> + + PR fortran/15051 + * parse.c (parse_interface): Allow empty INTERFACE, remove + seen_body. + +2004-05-08 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> + + * Make-lang.in, arith.c, arith.h, array.c, bbt.c, check.c, + decl.c, dependency.c, dependency.h, dump-parse-tree.c, error.c, + expr.c, f95-lang.c, gfortran.h, interface.c, intrinsic.c, + intrinsic.h, io.c, iresolve.c, lang-specs.h, match.c, match.h, + matchexp.c, misc.c, module.c, options.c, parse.c, parse.h, + primary.c, resolve.c, scanner.c, simplify.c, st.c, symbol.c, + trans-array.c, trans-array.h, trans-common.c, trans-const.c, + trans-const.h, trans-decl.c, trans-expr.c, trans-intrinsic.c, + trans-io.c, trans-stmt.c, trans-stmt.h, trans-types.c, + trans-types.h, trans.c, trans.h: Update copyright years and + boilerplate. + * data.c: Likewise, also removed two whitespace-only lines. + * gfortranspec.c, lang.opt: Update copyright years. + +2004-04-22 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> + + PR fortran/14568 + * trans-decl.c (generate_local_decl): Don't warn for unused + variables which are in common blocks. 2004-05-13 Diego Novillo <dnovillo@redhat.com> diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 00f2989..1ab5b6a 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -1409,7 +1409,6 @@ parse_interface (void) gfc_interface_info save; gfc_state_data s1, s2; gfc_statement st; - int seen_body; accept_statement (ST_INTERFACE); @@ -1420,7 +1419,6 @@ parse_interface (void) || current_interface.type == INTERFACE_USER_OP) ? gfc_new_block : NULL; push_state (&s1, COMP_INTERFACE, sym); - seen_body = 0; current_state = COMP_NONE; loop: @@ -1446,7 +1444,6 @@ loop: case ST_MODULE_PROC: /* The module procedure matcher makes sure the context is correct. */ - seen_body = 1; accept_statement (st); gfc_free_namespace (gfc_current_ns); goto loop; @@ -1512,8 +1509,6 @@ decl: goto decl; } - seen_body = 1; - current_interface = save; gfc_add_interface (prog_unit); @@ -1521,9 +1516,6 @@ decl: goto loop; done: - if (!seen_body) - gfc_error ("INTERFACE block at %C is empty"); - pop_state (); } |