------- Comment #5 from pault at gcc dot gnu dot org 2007-05-07 08:59 -------
(In reply to comment #4)
FX,
integer,parameter :: i(1,1) = reshape ((/0/),(/1,1/))
! integer,parameter :: i(1,1) = 1
integer :: j(1)
j = lbound(any(i==1,2))
print *, j
end
works correctly, so it is the initializer that is wrong. In fact, this is one
and the same as PR29397. My fix for that did not mend this PR until I added
the shape expressions. Then, even your great long test in comment#4 works
correctly.
I'll do a regtest and submit later today.
Cheers
Paul
--
pault at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
AssignedTo|unassigned at gcc dot gnu |pault at gcc dot gnu dot org
|dot org |
Status|NEW |ASSIGNED
Last reconfirmed|2007-02-06 13:44:49 |2007-05-07 08:59:00
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29400