Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/streamio_13.f90 @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do run }
kono
parents:
diff changeset
2 ! PR 34405 - BACKSPACE for unformatted stream files is prohibited.
kono
parents:
diff changeset
3 program main
kono
parents:
diff changeset
4 implicit none
kono
parents:
diff changeset
5 integer :: ios
kono
parents:
diff changeset
6 character(len=80) :: msg
kono
parents:
diff changeset
7 open(2003,form="unformatted",access="stream",status="scratch")
kono
parents:
diff changeset
8 write (2003) 1
kono
parents:
diff changeset
9 write (2003) 2
kono
parents:
diff changeset
10 ios = 0
kono
parents:
diff changeset
11 msg = ' '
kono
parents:
diff changeset
12 backspace (2003,iostat=ios,iomsg=msg)
kono
parents:
diff changeset
13 if (ios == 0 .or. msg /="Cannot BACKSPACE an unformatted stream file") &
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
14 STOP 1
111
kono
parents:
diff changeset
15 end program main