------- Comment #1 from dfranke at gcc dot gnu dot org 2008-03-28 23:59 ------- Confirmed. Somewhat simplified testcase:
logical lda(5) lda = (/ (i/2*2 .ne. I, i=1,5) /) call rg0025(lda, 1, 2, 3, 5, 6, -1, -2) end program SUBROUTINE RG0025(LDA,nf1,nf2,nf3,nf5,nf6,mf1,mf2) REAL TDA1L(6) LOGICAL LDA(NF5) TDA1L(1:6) = 1.0 WHERE (LDA(NF6:NF3)) TDA1L(MF1:NF5:MF1) = TDA1L(NF6:NF2) END SUBROUTINE -- dfranke at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |dfranke at gcc dot gnu dot | |org Status|UNCONFIRMED |NEW Ever Confirmed|0 |1 Known to fail| |4.2.3 4.3.0 4.4.0 Last reconfirmed|0000-00-00 00:00:00 |2008-03-28 23:59:40 date| | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35743