------- Comment #3 from burnus at gcc dot gnu dot org  2007-06-21 16:58 -------
Dump a valid program which contains equivalence to show a harder case for the
checks (NAG f95 chokes on it).

      program main
      implicit none
      integer :: i, it, jt
      real    :: tt
      equivalence    (jt,tt)
      dimension it(10)
      do i=1,10
        tt=i
        print *, tt, jt
        it(i)=jt
      end do
      end


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27589

Reply via email to