This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/37723] wrong result for left-right hand side array overlap and (possibly) negative strides
- From: "dominiq at lps dot ens dot fr" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 6 Oct 2008 08:34:04 -0000
- Subject: [Bug fortran/37723] wrong result for left-right hand side array overlap and (possibly) negative strides
- References: <bug-37723-15620@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- 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