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