Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/eor_handling_4.f90 @ 158:494b0b89df80 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +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 20092, 20131: Handle end-of-record condition with pad=yes (default)
kono
parents:
diff changeset
3 ! for standard input. This test case only really tests anything if,
kono
parents:
diff changeset
4 ! by changing unit 5, you get to manipulate the standard input.
kono
parents:
diff changeset
5 program main
kono
parents:
diff changeset
6 character(len=1) a(80)
kono
parents:
diff changeset
7 close(5)
kono
parents:
diff changeset
8 open(5,status="scratch")
kono
parents:
diff changeset
9 write(5,'(A)') 'one', 'two', 's'
kono
parents:
diff changeset
10 rewind(5)
kono
parents:
diff changeset
11 do i=1,4
kono
parents:
diff changeset
12 read(5,'(80a1)') a
kono
parents:
diff changeset
13 if (a(1) == 's') goto 100
kono
parents:
diff changeset
14 end do
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
15 STOP 1
111
kono
parents:
diff changeset
16 100 continue
kono
parents:
diff changeset
17 end program main