identification division.
       program-id. flo.
       author. "Patrick Cousot".
       date-written. 10.3.2006.
       date-compiled.
       data division.
       working-storage section.
        01 pic X.
         88 xfalse value 0.
         88 xtrue  value 1.
        77 x pic 9(8)V4 comp-5.
        77 y pic 9(4)V2 comp-5.
        77 z pic 9(4)V2 comp-5.
        77 r pic 9(4)V2 comp-5.
       procedure division.
         compute x = 1.000000019e+38
         compute y = x + 1.0e21
         compute z = x - 1.0e21
         compute r = y - z
         display r
      * gcc float-error.c
      * ./a.out
      * 0.000000
       end-program flo.