Sign in
gnu
/
gcc
/
33fdbbe4ce6055eb858096d01720ccf94aa854ec
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr81849.f90
blob: e2f2d6ffbed464b4dc6b4bbabeacc70ce9771531 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR fortran
/
81849
program p
implicit
none
integer
::
n
=
3
if
(
any
(
g
()
/=
f
()))
stop
1
contains
function
g
()
real g
(
n
)
g
=
7
end
function
g
function
f
()
result
(
r
)
real r
(
n
)
r
=
7
end
function
f
end
program