gcc/testsuite/gfortran.dg/implicit_derived_type_1.f90

   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
  10 module m
  11   type t
  12     integer :: i
  13   end type t
  14 contains
  15   subroutine s(x)
  16     implicit type(t)(x)
  17     dimension x(:)
  18     print *, x(1)%i
  19   end subroutine s
  20 end module m
  21
  22 ! { dg-final { cleanup-modules "m" } }