gcc/testsuite/gfortran.dg/associated_target_8.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

! { dg-do compile }
! PR fortran/100892 - procedure pointer to function returning array of size n 

module m
  implicit none
  procedure(func1), pointer :: my_ptr => null()
contains
  subroutine test_sub
    if (associated (my_ptr, func1)) print *,'associated'
  end subroutine test_sub
  function func1 (n)
    integer, intent(in) :: n
    real, dimension(n)  :: func1
    func1 = 0.
  end function
end module m