blob: 38d4552801ad9c4a99d98c2b9d65f670ab527fe6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { 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
|