URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [proc_ptr_26.f90] - Rev 305
Go to most recent revision | Compare with Previous | Blame | View Log
! { 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" } }
Go to most recent revision | Compare with Previous | Blame | View Log