blob: 8ae027fe870484a7e24b631a9e9c7aaba1106e8a (
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
|
! { 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
|
