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

Reply via email to