OSDN Git Service

2010-01-07 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / proc_ptr_26.f90
1 ! { dg-do run }
2 !
3 ! PR fortran/42597
4 !
5 ! Contributed by mrestelli@gmail.com
6 !
7
8 module mod_a
9  implicit none
10
11  abstract interface
12   pure function intf(x) result(y)
13    real, intent(in) :: x(:,:)
14    real :: y(size(x,1),size(x,1),size(x,2))
15   end function intf
16  end interface
17
18  procedure(intf), pointer :: p_fun => null()
19 end module mod_a
20
21 program main
22   use mod_a
23   implicit none
24
25   procedure(intf), pointer :: p_fun2 => null()
26
27   if (associated(p_fun) .or. associated(p_fun2)) &
28     call abort ()
29 end program main
30
31 ! { dg-final { cleanup-modules "mod_a" } }