blob: e214fe2729eab6448686f58cb5b9a0572a20ccad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
! { 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
|
