repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
tree-optimization/113385 - wrong loop father with early exit vectorization
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
list_read_1.f90
blob
7a3ce63b5f3fb7894450e987bf034e5ecdb99b25
1
! { dg-do run }
2
! Program to test terminators in list-directed input
3
program
list_read_1
4
character
(
len
=
5
) ::
s
5
6
open
(
unit
=
11
,
status
=
"SCRATCH"
)
7
! The / terminator was causing the next value to be skipped.
8
write
(
11
,
'(a)'
)
" 42 /"
9
write
(
11
,
'(a)'
)
" 43"
10
write
(
11
,
'(a)'
)
" 44"
11
12
rewind
(
11
)
13
14
read
(
11
, *)
i
15
if
(
i
.
ne
.
42
)
STOP
1
16
read
(
11
, *)
i
17
if
(
i
.
ne
.
43
)
STOP
2
18
read
(
11
, *)
i
19
if
(
i
.
ne
.
44
)
STOP
3
20
close
(
11
)
21
end
22