1! { dg-do compile } 2 3! PR fortran/36746 4! Check that parsing of component references for symbols with IMPLICIT 5! derived-type works. 6 7! Reduced test from the PR. 8! Contributed by Tobias Burnus <burnus@gcc.gnu.org> 9 10module m 11 type t 12 integer :: i 13 end type t 14contains 15 subroutine s(x) 16 implicit type(t)(x) 17 dimension x(:) 18 print *, x(1)%i 19 end subroutine s 20end module m 21