! { dg-do compile }! PR fortran/36746! Check that parsing of component references for symbols with IMPLICIT! derived-type works.! Reduced test from the PR.! Contributed by Tobias Burnus <burnus@gcc.gnu.org>module mtype tinteger::iend type tcontains subroutine s(x)implicit type(t)(x)dimension x(:)print*,x(1)%iend subroutine send module m