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

Subversion Repositories openrisc

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

Rev 154	Rev 816
`! { dg-do run }`	`! { dg-do run }`
`! Check that rewind doesn't delete a file.`	`! Check that rewind doesn't delete a file.`
`! Writing to the file truncates it at the end of the current record. Out`	`! Writing to the file truncates it at the end of the current record. Out`
`! IO library was defering the actual truncation until the file was rewound.`	`! IO library was defering the actual truncation until the file was rewound.`
`! A second rewind would then (incorrectly) think the file had just been`	`! A second rewind would then (incorrectly) think the file had just been`
`! written to, and truncate the file to zero length.`	`! written to, and truncate the file to zero length.`
`program foo`	`program foo`
`character*11 s`	`character*11 s`
`open(unit=11, status="SCRATCH")`	`open(unit=11, status="SCRATCH")`
`write(11, '(a11)') "Hello World"`	`write(11, '(a11)') "Hello World"`
`rewind(11)`	`rewind(11)`
`rewind(11)`	`rewind(11)`
`s = ""`	`s = ""`
`read(11, '(a11)') s`	`read(11, '(a11)') s`
`close(11)`	`close(11)`
`if (s .ne. "Hello World") call abort`	`if (s .ne. "Hello World") call abort`
`end program`	`end program`