OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2006-12-04 Paul Thomas <pault@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
flush_1.f90
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) call abort
19
20
write (10, *) 42
21
flush (unit=10, err=20)
22
goto 30
23
20 call abort
24
30 continue
25
26
call flush(10)
27
28
end program flush_1