Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/generic_8.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { 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