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
doc: Remove index reference to removed documentation in fortran manual
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
flush_1.f90
blob
2fb1497cc031a11fb6ad7acde09f77f9b366a60e
1
! { dg-do run }
2
! PR 22390 Implement flush statement
3
program
flush_1
4
5
character
(
len
=
256
)
msg
6
integer
ios
7
8
open
(
unit
=
10
,
access
=
'SEQUENTIAL'
,
status
=
'SCRATCH'
)
9
10
write
(
10
, *)
42
11
flush
10
12
13
write
(
10
, *)
42
14
flush
(
10
)
15
16
write
(
10
, *)
42
17
flush
(
unit
=
10
,
iostat
=
ios
)
18
if
(
ios
/=
0
)
STOP
1
19
20
write
(
10
, *)
42
21
flush
(
unit
=
10
,
err
=
20
)
22
goto
30
23
20
STOP
2
24
30
continue
25
26
call
flush
(
10
)
27
28
end program
flush_1