Sign in
gnu
/
gcc
/
1ba7adabf29eb671e418692fad076ea6edd08e3d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
whole_file_34.f90
blob: 9b421e004ae1f482a701e0c27fbf5b6e361283d3 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
PR fortran
/
48788
!
!
Contributed
by
Zdenek
Sojka
!
function
foo
()
end
function
foo
character
(
4
),
external
::
foo
!
{
dg
-
error
"Return type mismatch of function"
}
character
(
4
)
::
x
x
=
foo
()
END