Subversion Repositories openrisc

! { 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" } }