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/parse.c | |
| 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/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 8 |
1 files changed, 0 insertions, 8 deletions
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 (); } |