Sign in
gnu
/
gcc
/
2eaa0cc45e8eae0fc4a440d28c602964bcb1014d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr71085.f90
blob: 11d9850fb90a40438c3c248c5bc3cd94162684ec [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR
71085
!
!
Testcase
from
PR
by
Vladimir
Fuka
<
vladimir
.
fuka@gmail
.
com
>
!
program pr71085
print
*,
f
()
contains
function
f
()
integer
::
f
(
iargc
()*
10
)
end
end