blob: 375c58bb6d2c4195a813151e09e1349d1b87bdc8 [file] [log] [blame]
! { dg-do compile }
! PR 44960 - improve the error message
program main
type t
integer :: a
end type t
type(t) :: foo
external foo
i = foo(1)%1 ! { dg-error "leftmost part-ref in a data-ref cannot be a function reference" }
end