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/] [eor_handling_2.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! PR 19568: Don't read across end of line when the format is longer`	`! PR 19568: Don't read across end of line when the format is longer`
`! than the line length and pad='yes' (default)`	`! than the line length and pad='yes' (default)`
`program main`	`program main`
`character(len=1) c1(10),c2(10)`	`character(len=1) c1(10),c2(10)`
`open(77,status='scratch')`	`open(77,status='scratch')`
`write(77,'(A)') 'Line 1','Line 2','Line 3'`	`write(77,'(A)') 'Line 1','Line 2','Line 3'`
`rewind(77)`	`rewind(77)`
`read(77,'(10A1)'), c1`	`read(77,'(10A1)'), c1`
`read(77,'(10A1)'), c2`	`read(77,'(10A1)'), c2`
`if (c1(1) /= 'L' .or. c2(1) /= 'L') call abort`	`if (c1(1) /= 'L' .or. c2(1) /= 'L') call abort`
`close(77)`	`close(77)`
`end program main`	`end program main`