URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [generic_8.f90] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do compile }
! Tests the fix for PR29837, in which the following valid code
! would emit an error because of mistaken INTENT; the wrong
! specific interface would be used for the comparison.
!
! Contributed by
!
MODULE M
IMPLICIT NONE
INTERFACE A
MODULE PROCEDURE A1,A2
END INTERFACE
CONTAINS
SUBROUTINE A2(X)
INTEGER, INTENT(INOUT) :: X
END SUBROUTINE A2
SUBROUTINE A1(X,Y)
INTEGER, INTENT(IN) :: X
INTEGER, INTENT(OUT) :: Y
Y=X
END SUBROUTINE A1
SUBROUTINE T(X)
INTEGER, INTENT(IN) :: X(:)
INTEGER Y
CALL A(MAXVAL(X),Y)
END SUBROUTINE T
END MODULE M
! { dg-final { cleanup-modules "m" } }
Go to most recent revision | Compare with Previous | Blame | View Log