Sign in
gnu
/
gcc
/
4e4e45a4fd341174d8231ee6a99e6fe308904f8f
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
function_reference_2.f90
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