------- Comment #2 from kargl at gcc dot gnu dot org 2006-11-15 00:18 ------- The trivial workaround is to assign MAXVAL(X) to an integer.
SUBROUTINE T(X) INTEGER, INTENT(IN) :: X(:) INTEGER Y, Z z = maxval(x) CALL A(z,Y) END SUBROUTINE T I need to look at the standard with regards to conformance issues. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29837