------- Comment #1 from dominiq at lps dot ens dot fr 2008-06-29 22:12 -------
Confirmed on i686-apple-darwin9. The following modified code
! { 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()
print *, associated(x(a)), associated(a, x(a))
! if (.not.associated(x(a))) call abort ()
! if (.not.associated(a, x(a))) call abort ()
nullify(b)
print *, associated(x(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
gives at -O1
[ibook-dhum] f90/bug% a.out
F F
T
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36671
