OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Tobias Schlüter 2004-05-14 15:26:03 +02:00 committed by Tobias Schlüter
parent 9fc4d79ba4
commit ee17cbda2e
4 changed files with 36 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
gcc/fortran/ChangeLog
View File

@ -1,8 +1,30 @@
2004-04-22 Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
2004-05-08 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.
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>

8
gcc/fortran/parse.c
View File

@ -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 ();
}

6
gcc/testsuite/ChangeLog
View File

@ -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

4
gcc/testsuite/gfortran.fortran-torture/compile/empty_interface_1.f90 Normal file
View File

@ -0,0 +1,4 @@
! Program to test empty interfaces PR15051
INTERFACE leer
END INTERFACE
END