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

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! Test the error message when an unformatted file has become`	`! Test the error message when an unformatted file has become`
`! corrupted.`	`! corrupted.`
`program main`	`program main`
`implicit none`	`implicit none`
`integer :: i1, i2`	`integer :: i1, i2`
`integer :: ios`	`integer :: ios`
`character(len=50) :: msg`	`character(len=50) :: msg`

`! Write out a truncated unformatted sequential file by`	`! Write out a truncated unformatted sequential file by`
`! using unformatted stream.`	`! using unformatted stream.`

`open (10, form="unformatted", access="stream", file="foo.dat", &`	`open (10, form="unformatted", access="stream", file="foo.dat", &`
`status="unknown")`	`status="unknown")`
`write (10) 16, 1`	`write (10) 16, 1`
`close (10, status="keep")`	`close (10, status="keep")`

`! Try to read`	`! Try to read`
`open (10, file="foo.dat", form="unformatted", access="sequential")`	`open (10, file="foo.dat", form="unformatted", access="sequential")`
`i1 = 0`	`i1 = 0`
`i2 = 0`	`i2 = 0`
`read (10, iostat=ios, iomsg=msg) i1, i2`	`read (10, iostat=ios, iomsg=msg) i1, i2`
`if (ios == 0) call abort`	`if (ios == 0) call abort`
`if (i1 /= 1) call abort`	`if (i1 /= 1) call abort`
`if (msg /= "Unformatted file structure has been corrupted") call abort`	`if (msg /= "Unformatted file structure has been corrupted") call abort`
`close (10, status="delete")`	`close (10, status="delete")`
`end program main`	`end program main`