URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [pr17164.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! pr17164`	`! pr17164`
`! index aborts when substring is longer than string`	`! index aborts when substring is longer than string`
`implicit none`	`implicit none`
`character*5 x`	`character*5 x`
`integer i`	`integer i`
`x='12345'`	`x='12345'`
`i=index(x,'blablabl')`	`i=index(x,'blablabl')`
`if (i.ne.0) call abort`	`if (i.ne.0) call abort`
`end`	`end`