blob: 044f0a403bd5464d2a70833741c30b1858e9553c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
! { dg-do run }
!
! PR fortran/42597
!
! Contributed by mrestelli@gmail.com
!
module mod_a
implicit none
abstract interface
pure function intf(x) result(y)
real, intent(in) :: x(:,:)
real :: y(size(x,1),size(x,1),size(x,2))
end function intf
end interface
procedure(intf), pointer :: p_fun => null()
end module mod_a
program main
use mod_a
implicit none
procedure(intf), pointer :: p_fun2 => null()
if (associated(p_fun) .or. associated(p_fun2)) &
call abort ()
end program main
! { dg-final { cleanup-modules "mod_a" } }
|
