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