------- Comment #6 from jvdelisle at verizon dot net 2008-01-13 15:18 -------
Subject: Re: Rejects valid with bogus error message:
parameter initalization
pault at gcc dot gnu dot org wrote:
> ------- Comment #5 from pault at gcc dot gnu dot org 2008-01-13 08:49 -------
> (In reply to comment #4)
>> This is similar to 34432 is some ways. I think we are not matching the (\ \)
>> correctly. I don't think gfc_match_expr has the tooling for it yet.
>
> The error message is spurious in my opinion. It is left on the stack from a
> failed match. As I say above, the problem is in simplification and,
> specifically, the simplification of reshape.
>
I agree there is a failed match. I am reducing the test case until I can get
this to succeed. I have managed to ICE a similar test case. Here:
! Rejects-valid. Fails with gfortran 4.1, 4.2 and 4.3
! For 4.3 the error message is:
!
! (/ linem, nplam /) )
! 1
!Error: Invalid character in name at (1)
!
! Found using the Fortran Company Fortran 90 Test Suite (Lite),
! Version 1.4
program splitprms
integer, parameter :: nplam = 3 ! # of plans to expand TABs
integer, parameter :: linem = 132 ! max. line length
integer, parameter :: ncntm = 39 ! max. # cont. lines
integer, dimension (linem, nplam) :: nxttab
nxttab = &
reshape ( &
(/ max( (/ (6+3*((i-6+3)/3), i= 1,linem), &
(6+2*((i-6+2)/2), i= 1,linem) /), &
(/ (6, i= 1, 2*linem) /) ), &
(/ (i, i= 1,linem) /) /),&
(/ linem, nplam /) )
print *, nxttab
end program splitprms
]$ gfc pr34556.f90
pr34556.f90: In function splitprms:
pr34556.f90:10: internal compiler error: Intrinsic function (164)
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34556
