tools/fortran_2003_fflush_test.F

   1       PROGRAM fortran_2003_test
   2
   3       IMPLICIT NONE
   4
   5       REAL :: x
   6       INTEGER :: i
   7
   8       x = 1.e+10
   9       i = 1
  10
  11       WRITE (6,*) x,i
  12       CALL FFLUSH ( 6 )
  13
  14       END PROGRAM fortran_2003_test