gcc/testsuite/gfortran.dg/flush_1.f90

   1 ! { dg-do run { target fd_truncate } }
   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