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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [eor_handling_4.f90] - Diff between revs 154 and 816

Rev 154	Rev 816
`! { dg-do run }`	`! { dg-do run }`
`! PR 20092, 20131: Handle end-of-record condition with pad=yes (default)`	`! PR 20092, 20131: Handle end-of-record condition with pad=yes (default)`
`! for standard input. This test case only really tests anything if,`	`! for standard input. This test case only really tests anything if,`
`! by changing unit 5, you get to manipulate the standard input.`	`! by changing unit 5, you get to manipulate the standard input.`
`program main`	`program main`
`character(len=1) a(80)`	`character(len=1) a(80)`
`close(5)`	`close(5)`
`open(5,status="scratch")`	`open(5,status="scratch")`
`write(5,'(A)') 'one', 'two', 's'`	`write(5,'(A)') 'one', 'two', 's'`
`rewind(5)`	`rewind(5)`
`do i=1,4`	`do i=1,4`
`read(5,'(80a1)') a`	`read(5,'(80a1)') a`
`if (a(1) == 's') goto 100`	`if (a(1) == 's') goto 100`
`end do`	`end do`
`call abort`	`call abort`
`100 continue`	`100 continue`
`end program main`	`end program main`