mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
30 lines
504 B
Fortran
30 lines
504 B
Fortran
! { 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)) &
|
|
STOP 1
|
|
end program main
|