1! { dg-do run }
2! PR 22390 Implement flush statement
3program 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
2320 call abort
2430 continue
25
26   call flush(10)
27
28end program flush_1
29