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