1! { dg-do compile }
2!
3! PR fortran/34662
4! The INTENT error was not detected.
5! Test case contributed by Joost VandeVondele.
6!
7MODULE M1
8 TYPE T1
9  INTEGER :: I(3)
10 END TYPE T1
11 TYPE(T1), PARAMETER :: D1=T1((/1,2,3/))
12CONTAINS
13 SUBROUTINE S1(J)
14  INTEGER, INTENT(INOUT) :: J
15 END SUBROUTINE S1
16END MODULE M1
17USE M1
18CALL S1(D1%I(3)) ! { dg-error "variable definition context" }
19END
20