2 !TODO: Move these testcases to gfortran testsuite
3 ! once compilation with pthreads is supported there
4 ! PR 22390 Implement flush statement
10 open (unit
=10, access
='SEQUENTIAL', status
='SCRATCH')
19 flush(unit
=10, iostat
=ios
)
23 flush (unit
=10, err
=20)