[Bug middle-end/36671] [4.4 Regression]: gfortran.dg/associated_1.f90

["dominiq at lps dot ens dot fr" <gcc-bugzilla at gcc dot gnu dot org>]

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