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/] [list_read_2.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! { dg-options "-std=legacy" }`	`! { dg-options "-std=legacy" }`
`!`	`!`
`! PR16805`	`! PR16805`
`! Test list directed reads from character substrings`	`! Test list directed reads from character substrings`
`! The IO library was reporting an error rather the end-of-record when it`	`! The IO library was reporting an error rather the end-of-record when it`
`! got to the end of an internal file record.`	`! got to the end of an internal file record.`
`program list_read_2`	`program list_read_2`
`implicit none`	`implicit none`
`character*10 a`	`character*10 a`
`data a /'1234567890'/`	`data a /'1234567890'/`
`integer i`	`integer i`
`logical debug`	`logical debug`
`data debug /.TRUE./`	`data debug /.TRUE./`
`read(a,*)i`	`read(a,*)i`
`if (i.ne.1234567890) call abort`	`if (i.ne.1234567890) call abort`
`read(a(1:1),*)i`	`read(a(1:1),*)i`
`if (i.ne.1) call abort`	`if (i.ne.1) call abort`
`read(a(2:2),*)i`	`read(a(2:2),*)i`
`if (i.ne.2) call abort`	`if (i.ne.2) call abort`
`read(a(1:5),*)i`	`read(a(1:5),*)i`
`if (i.ne.12345) call abort`	`if (i.ne.12345) call abort`
`read(a(5:10),*)i`	`read(a(5:10),*)i`
`if (i.ne.567890) call abort`	`if (i.ne.567890) call abort`
`read(a(10:10),*)i`	`read(a(10:10),*)i`
`if (i.ne.0) call abort`	`if (i.ne.0) call abort`
`end`	`end`