gcc/testsuite/gfortran.dg/proc_ptr_10.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/37253
   4 !
   5 ! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr>
   6
   7 module myMod
   8
   9   CONTAINS
  10
  11   real function proc3( arg1 )
  12      integer :: arg1
  13      proc3 = arg1+7
  14   end function proc3
  15
  16   subroutine proc4( arg1 )
  17      procedure(real), pointer :: arg1
  18      if (arg1(0)/=7) call abort()
  19   end subroutine proc4
  20
  21 end module myMod
  22
  23 program myProg
  24   use myMod
  25   PROCEDURE (real), POINTER :: p => NULL()
  26   p => proc3
  27   call proc4( p )
  28 end program myProg
  29
  30 ! { dg-final { cleanup-modules "myMod" } }