TP3/shell/tests/fixtures/t84_realwrite.pas

PROGRAM T84;
TYPE
   RRec = RECORD
      R : Real ;
   END ;
VAR
   X : RRec ;
   W, D : Integer ;
BEGIN
   X.R := 1234 ;
   W := 12 ; D := 2 ;
   Write (X.R:W:D) ;
   WriteLn ;
   W := 8 ;
   Write (X.R:W:D) ;
   WriteLn ;
   W := 8 ;
   Write (X.R:W) ;
   WriteLn
END.