21 lines
385 B
Fortran
21 lines
385 B
Fortran
! { 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 m
|
|
type t
|
|
integer :: i
|
|
end type t
|
|
contains
|
|
subroutine s(x)
|
|
implicit type(t)(x)
|
|
dimension x(:)
|
|
print *, x(1)%i
|
|
end subroutine s
|
|
end module m
|