[Bug fortran/37723] wrong result for left-right hand side array overlap and (possibly) negative strides

[dominiq at lps dot ens dot fr]

------- Comment #3 from dominiq at lps dot ens dot fr  2008-10-06 08:34 -------
Reduced test case:

      program try_cg0071
      type seq
          integer ia(10)
      end type
      TYPE(SEQ) UDA1R
      type(seq) uda(1)

      do j1 = 1,10
        uda1r%ia(j1) = j1
      enddo

      uda = uda1r
      UDA(1)%IA(1:9) = UDA(1)%IA(9:1:-1)+1

      DO J1 = 1,9
         if (UDA1R%IA(10-J1)+1 /=  Uda(1)%IA(J1)) call abort()
      ENDDO

      end

The test does not fail if UDA is not an array.


-- 


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