blob: be634c9dd4b271c8c3fba4b55d03838398d67ea8 [file] [log] [blame]
! { dg-do compile }
! PR 44960 - this was erroneusly accepted.
! Original test case by Daniel Franke.
type t
integer :: a
end type t
type(t) :: foo
print *, foo(1)%a ! { dg-error "Unexpected junk" }
end