* config/i386/i386.md (paritydi2, paritysi2): New expanders.
[official-gcc.git] / gcc / testsuite / gfortran.dg / backspace_3.f
blob419063b94a2d07f0c62a4e4d5d03139944076ee3
1 ! { dg-do run }
2 ! PR25598 Error on repeated backspaces.
3 ! Derived from example given in PR by Dale Ranta
4 ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
5 integer data
6 data=-1
7 open(unit=11,status='scratch',form='unformatted')
8 write(11)data
9 read(11,end= 1000 )data
10 call abort()
11 1000 continue
12 backspace 11
13 backspace 11
14 backspace 11
15 read(11,end= 1001 )data
16 1001 continue
17 if (data.ne.-1) call abort
18 close(11)
19 end