Remove old autovect-branch by moving to "dead" directory.
[official-gcc.git] / old-autovect-branch / gcc / testsuite / gfortran.dg / flush_1.f90
blob51b7fa02f605a5810f0681947bb64d979a758ec9
1 ! { dg-do run }
2 ! PR 22390 Implement flush statement
3 program flush_1
5 character(len=256) msg
6 integer ios
8 open (unit=10, access='SEQUENTIAL', status='SCRATCH')
10 write (10, *) 42
11 flush 10 ! { dg-warning "Fortran 2003: FLUSH statement" }
13 write (10, *) 42
14 flush(10) ! { dg-warning "Fortran 2003: FLUSH statement" }
16 write (10, *) 42
17 flush(unit=10, iostat=ios) ! { dg-warning "Fortran 2003: FLUSH statement" }
18 if (ios /= 0) call abort
20 write (10, *) 42
21 flush (unit=10, err=20) ! { dg-warning "Fortran 2003: FLUSH statement" }
22 goto 30
23 20 call abort
24 30 continue
26 call flush(10)
28 end program flush_1