Quelle  double.cob

       identification division.
       program-id. dou.
       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.
      *   x = ldexp(1.,50)+ldexp(1.,26)
         compute x = 1125899973951488.0 
         compute y = x + 1
         compute z = x - 1
         compute r = y - z
      * ./a.out
      * 134217728.000000
         display r.
       end-program dou.