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