diff options
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/fortran/ChangeLog | 32 | ||||
-rw-r--r-- | gcc/fortran/parse.c | 8 | ||||
-rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/compile/empty_interface_1.f90 | 4 |
4 files changed, 37 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 (); } diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c3a6288..6baf19a 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2004-05-14 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> + + PR fortran/15051 + * gfortran.fortran-torture/compile/empty_interface_1.f90: New + test. + 2004-05-14 Bud Davis <bdavis9659@comcast.net> PR fortran/15149 diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/empty_interface_1.f90 b/gcc/testsuite/gfortran.fortran-torture/compile/empty_interface_1.f90 new file mode 100644 index 0000000..d908954 --- /dev/null +++ b/gcc/testsuite/gfortran.fortran-torture/compile/empty_interface_1.f90 @@ -0,0 +1,4 @@ +! Program to test empty interfaces PR15051 +INTERFACE leer +END INTERFACE +END |