------- Comment #3 from enok at lysator dot liu dot se 2006-11-15 08:06 -------
(In reply to comment #2)
> The trivial workaround is to assign MAXVAL(X) to an integer.
Ok, but my real code is more complex. And I think there must be something
wrong. If I put an "INTENT(IN)" variable as X it works. If I put an integer
constant it fails:
SUBROUTINE T2(X)
INTEGER, INTENT(IN) :: X
INTEGER Y
CALL A(X,Y) ! Works!
END SUBROUTINE T2
SUBROUTINE T3()
INTEGER Y
CALL A(10,Y) ! Fails!
END SUBROUTINE T3
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29837
