| ! { 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 |