2 ! PR 22390 Implement flush statement
8 open (unit=10, access='SEQUENTIAL', status='SCRATCH')
11 flush 10 ! { dg-warning "Fortran 2003: FLUSH statement" }
14 flush(10) ! { dg-warning "Fortran 2003: FLUSH statement" }
17 flush(unit=10, iostat=ios) ! { dg-warning "Fortran 2003: FLUSH statement" }
18 if (ios /= 0) call abort
21 flush (unit=10, err=20) ! { dg-warning "Fortran 2003: FLUSH statement" }