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

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! PR25463 Check that advance='no' works correctly.`	`! PR25463 Check that advance='no' works correctly.`
`! Derived from example given in PR by Thomas Koenig`	`! Derived from example given in PR by Thomas Koenig`
`! Contributed by Jerry DeLisle`	`! Contributed by Jerry DeLisle`
`program pr25463`	`program pr25463`
`character(10) :: str`	`character(10) :: str`
`write (10,'(A)',advance="no") 'ab'`	`write (10,'(A)',advance="no") 'ab'`
`write (10,'(TL2,A)') 'c'`	`write (10,'(TL2,A)') 'c'`
`rewind (10)`	`rewind (10)`
`read (10, '(a)') str`	`read (10, '(a)') str`
`if (str.ne.'abc') call abort()`	`if (str.ne.'abc') call abort()`
`close (10, status='delete')`	`close (10, status='delete')`
`end`	`end`