URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 149 |
Rev 154 |
C { dg-do run }
|
C { dg-do run }
|
C PR libfortran/31618 - backspace after an error didn't work.
|
C PR libfortran/31618 - backspace after an error didn't work.
|
program main
|
program main
|
character*78 msg
|
character*78 msg
|
open (21, file="backspace_7.dat", form="unformatted")
|
open (21, file="backspace_7.dat", form="unformatted")
|
write (21) 42, 43
|
write (21) 42, 43
|
write (21) 4711, 4712
|
write (21) 4711, 4712
|
write (21) -1, -4
|
write (21) -1, -4
|
rewind (21)
|
rewind (21)
|
read (21) i,j
|
read (21) i,j
|
read (21,err=100,end=100) i,j,k
|
read (21,err=100,end=100) i,j,k
|
call abort
|
call abort
|
100 continue
|
100 continue
|
backspace 21
|
backspace 21
|
read (21) i,j
|
read (21) i,j
|
if (i .ne. 4711 .or. j .ne. 4712) call abort
|
if (i .ne. 4711 .or. j .ne. 4712) call abort
|
close (21,status="delete")
|
close (21,status="delete")
|
end
|
end
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.