| Summary: | ICE in gfortran.dg/g77/19990905-1.f | ||
|---|---|---|---|
| Product: | gcc | Reporter: | David Billinghurst <billingd> |
| Component: | fortran | Assignee: | Not yet assigned to anyone <unassigned> |
| Status: | RESOLVED DUPLICATE | ||
| Severity: | normal | CC: | gcc-bugs |
| Priority: | P2 | ||
| Version: | 4.0.0 | ||
| Target Milestone: | --- | ||
| Host: | i686-pc-cygwin | Target: | |
| Build: | Known to work: | ||
| Known to fail: | Last reconfirmed: | ||
This is almost certainly related to the use of ENTRY *** This bug has been marked as a duplicate of 13082 *** Subject: Bug 16520 CVSROOT: /cvs/gcc Module name: gcc Changes by: tobi@gcc.gnu.org 2004-08-19 15:04:37 Modified files: gcc/testsuite : ChangeLog gcc/testsuite/gfortran.dg/g77: 19990905-1.f Log message: PR fortran/16520 * gfortran.dg/g77/19990905-1.f: Don't expect excess errors. Patches: http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&r1=1.4158&r2=1.4159 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/g77/19990905-1.f.diff?cvsroot=gcc&r1=1.1&r2=1.2 |
Test gfortran.dg/g77/19990905-1.f (from g77.f-torture/noncompile) ICEs with gfortran. This is not valid code Code is: c { dg-do compile } c c g77 gave error c 19990905-1.f: In subroutine `x': c 19990905-1.f:15: c common /foo/n c 1 c 19990905-1.f:18: (continued): c call foo(a(1)) c 2 c Invalid declaration of or reference to symbol `foo' at (2) [initially seen at (1)] * =foo7.f in Burley's g77 test suite. subroutine x real a(n) common /foo/n continue entry y(a) call foo(a(1)) end c { dg-excess-errors "" } gfortran output is: $ ./gfortran -B. -c - O0 /usr/local/src/gcc/gcc/testsuite/gfortran.dg/g77/19990905-1.f assertion "sym->backend_decl" failed: file "/usr/local/src/gcc/gcc/fortran/trans-decl.c", line 717 /usr/local/src/gcc/gcc/testsuite/gfortran.dg/g77/19990905-1.f: In function `x': /usr/local/src/gcc/gcc/testsuite/gfortran.dg/g77/19990905-1.f:13: internal compiler error: Aborted Please submit a full bug report, with preprocessed source if appropriate. See <URL:http://gcc.gnu.org/bugs.html> for instructions.