27 lines
593 B
Fortran
27 lines
593 B
Fortran
! { dg-do run }
|
|
! PR 25292: Check that the intrinsic associated works with functions returning
|
|
! pointers as arguments
|
|
program test
|
|
real, pointer :: a, b
|
|
|
|
nullify(a,b)
|
|
if(associated(a,b).or.associated(a,a)) call abort()
|
|
allocate(a)
|
|
if(associated(b,a)) call abort()
|
|
if (.not.associated(x(a))) call abort ()
|
|
if (.not.associated(a, x(a))) call abort ()
|
|
|
|
nullify(b)
|
|
if (associated(x(b))) call abort ()
|
|
allocate(b)
|
|
if (associated(x(b), x(a))) call abort ()
|
|
|
|
contains
|
|
|
|
function x(a) RESULT(b)
|
|
real, pointer :: a,b
|
|
b => a
|
|
end function x
|
|
|
|
end program test
|