------- 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

Reply via email to