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.
11 MODULE PROCEDURE A1,A2
16 INTEGER, INTENT(INOUT) :: X
20 INTEGER, INTENT(IN) :: X
21 INTEGER, INTENT(OUT) :: Y
26 INTEGER, INTENT(IN) :: X(:)
31 ! { dg-final { cleanup-modules "m" } }