URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [index.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! pr35940`	`! pr35940`
`program FA1031`	`program FA1031`
`implicit none`	`implicit none`
`integer I`	`integer I`
`INTEGER IDA1(10)`	`INTEGER IDA1(10)`
`LOGICAL GDA1(10)`	`LOGICAL GDA1(10)`
`INTEGER RSLT(10)`	`INTEGER RSLT(10)`
`DATA RSLT /4,1,4,1,4,1,4,1,4,1/`	`DATA RSLT /4,1,4,1,4,1,4,1,4,1/`
`IDA1 = 0`	`IDA1 = 0`
`gda1 = (/ (i/2*2 .ne. I, i=1,10) /)`	`gda1 = (/ (i/2*2 .ne. I, i=1,10) /)`

`IDA1 = INDEX ( 'DEFDEF' , 'DEF', GDA1 ) !fails`	`IDA1 = INDEX ( 'DEFDEF' , 'DEF', GDA1 ) !fails`
`do I = 1, 10`	`do I = 1, 10`
`if (IDA1(i).NE.RSLT(i)) call abort`	`if (IDA1(i).NE.RSLT(i)) call abort`
`end do`	`end do`
`IDA1 = INDEX ( (/ ('DEFDEF',i=1,10) /) , 'DEF', GDA1 ) !works`	`IDA1 = INDEX ( (/ ('DEFDEF',i=1,10) /) , 'DEF', GDA1 ) !works`
`do I = 1, 10`	`do I = 1, 10`
`if (IDA1(i).NE.RSLT(i)) call abort`	`if (IDA1(i).NE.RSLT(i)) call abort`
`end do`	`end do`

`END`	`END`