Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
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