Sign in
gnu
/
gcc
/
34fdecb2eb442640e3f5ad40320bd5859392c9f7
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pure_formal_proc_3.f90
blob: 38d4552801ad9c4a99d98c2b9d65f670ab527fe6 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
PR
50547
:
dummy procedure argument of PURE shall be PURE
!
!
Contributed
by
Vittorio
Zecca
<
zeccav@gmail
.
com
>
pure
function
f
(
proc
)
interface
function
proc
()
!
{
dg
-
error
"must also be PURE"
}
end
end
interface
end