Sign in
gnu
/
gcc
/
refs/tags/releases/gcc-4.4.4
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr20865.f90
blob: 96d0d791cb097b1797ca9ec387560ad9bd09ac90 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
20865
subroutine tt
(
j
)
integer
::
j
end
subroutine
integer
::
i
,
st
st
(
i
)
=
(
i
*
i
+
2
)
call tt
(
st
)
!
{
dg
-
error
"Statement function .* is not allowed as an actual argument"
}
end