プログラムが予期せずに終了した場合にデータが失われないようにするために、 FLUSH ステートメントまたは flush_ サブルーチンを使用して、バッファーに入れたデータをファイルに書き込むことができます。(移植性を高めるためには、FLUSH ステートメントが推奨されます。) 次の例は、flush_ サブルーチンの使用法を示しています。
USE XLFUTILITY INTEGER, PARAMETER :: UNIT=10 DO I=1,1000000 WRITE (10,*) I CALL MIGHT_CRASH ! If the program ends in the middle of the loop, some data ! may be lost. END DO DO I=1,1000000 WRITE (10,*) I CALL FLUSH_(UNIT) CALL MIGHT_CRASH ! If the program ends in the middle of the loop, all data written ! up to that point will be safely in the file. END DO END