--- Comment #5 from burnus at gcc dot gnu dot org 2008-01-04 09:12 ---
Subject: Bug 34557
Author: burnus
Date: Fri Jan 4 09:11:26 2008
New Revision: 131317
URL: http://gcc.gnu.org/viewcvs?root=gccview=revrev=131317
Log:
2008-01-04 Tobias Burnus [EMAIL PROTECTED]
PR
--- Comment #2 from burnus at gcc dot gnu dot org 2008-01-03 12:53 ---
Confirmed. This is a regression vs. 4.2:
I think it is not a regression with regards to 4.1 or 4.2. Here, it gives no
ICE/error/warning for .f (fixed-form source) but it does so for .f90 (free-form
source).
With
--- Comment #3 from burnus at gcc dot gnu dot org 2008-01-03 15:38 ---
Patch.
Index: gcc/fortran/primary.c
===
--- gcc/fortran/primary.c (Revision 131302)
+++ gcc/fortran/primary.c (Arbeitskopie)
@@ -1679,6
--- Comment #4 from tkoenig at gcc dot gnu dot org 2008-01-03 20:00 ---
(In reply to comment #3)
Patch.
Looks obvious and simple.
OK to commit if it passes regression-test.
Thomas
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34557
--- Comment #1 from tkoenig at gcc dot gnu dot org 2008-01-02 22:38 ---
Confirmed. This is a regression vs. 4.2:
$ cat foo.f
! Rejects valid. EQUIVALENCE of substrings; fails with 4.[1-3].x with:
!
!EQUIVALENCE (A (2,1) (1:1), B (1) (2:3), C (3:5))
! 1
!Error: