4 ! The INTENT error was not detected.
5 ! Test case contributed by Joost VandeVondele.
11 TYPE(T1), PARAMETER :: D1=T1((/1,2,3/))
14 INTEGER, INTENT(INOUT) :: J
18 CALL S1(D1%I(3)) ! { dg-error "variable definition context" }
20 ! { dg-final { cleanup-modules "m1" } }