aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
Diffstat (limited to 'gcc')
-rw-r--r--gcc/fortran/ChangeLog32
-rw-r--r--gcc/fortran/parse.c8
-rw-r--r--gcc/testsuite/ChangeLog6
-rw-r--r--gcc/testsuite/gfortran.fortran-torture/compile/empty_interface_1.f904
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