1! { dg-do compile }
2! Tests the fix for PR29837, in which the following valid code
3! would emit an error because of mistaken INTENT; the wrong
4! specific interface would be used for the comparison.
5!
6! Contributed by
7!
8MODULE M
9  IMPLICIT NONE
10  INTERFACE A
11    MODULE PROCEDURE A1,A2
12  END INTERFACE
13CONTAINS
14
15  SUBROUTINE A2(X)
16    INTEGER, INTENT(INOUT) :: X
17  END SUBROUTINE A2
18
19  SUBROUTINE A1(X,Y)
20    INTEGER, INTENT(IN) :: X
21    INTEGER, INTENT(OUT) :: Y
22    Y=X
23  END SUBROUTINE A1
24
25  SUBROUTINE T(X)
26    INTEGER, INTENT(IN) :: X(:)
27    INTEGER Y
28    CALL A(MAXVAL(X),Y)
29  END SUBROUTINE T
30END MODULE M
31