3 ! PR 36947: Attributes not fully checked comparing actual vs dummy procedure
5 ! Original test case by Walter Spector <w6ws@earthlink.net>
6 ! Modified by Janus Weil <janus@gcc.gnu.org>
13 integer, intent(in
), optional
:: x
22 subroutine subActual(x
)
23 ! actual subroutine's argment is different in intent
24 integer, intent(inout
),optional
:: x
26 subroutine subActual2(x
)
27 ! actual subroutine's argment is missing OPTIONAL
28 integer, intent(in
):: x
32 program interfaceCheck
38 call test(subActual
) ! { dg-error "INTENT mismatch in argument" }
39 call test(subActual2
) ! { dg-error "OPTIONAL mismatch in argument" }
42 ! { dg-final { cleanup-modules "sub testsub" } }