1! { dg-do run } 2! pr35940 3 program FA1031 4 implicit none 5 integer I 6 INTEGER IDA1(10) 7 LOGICAL GDA1(10) 8 INTEGER RSLT(10) 9 DATA RSLT /4,1,4,1,4,1,4,1,4,1/ 10 IDA1 = 0 11 gda1 = (/ (i/2*2 .ne. I, i=1,10) /) 12 13 IDA1 = INDEX ( 'DEFDEF' , 'DEF', GDA1 ) !fails 14 do I = 1, 10 15 if (IDA1(i).NE.RSLT(i)) call abort 16 end do 17 IDA1 = INDEX ( (/ ('DEFDEF',i=1,10) /) , 'DEF', GDA1 ) !works 18 do I = 1, 10 19 if (IDA1(i).NE.RSLT(i)) call abort 20 end do 21 22 END 23