{

PRT test 1758b: On writing to a textfile, the values of TotalWidth and 
                FracDigits are greater than or equal to one ; it is an error if
                either value is less than one.

                ISO 7185 reference: 6.9.3.1

                Divided into:

                A: TotalWidth is zero.

                B: FracDigits is zero.

}

program iso7185prt1758b(output);

var a: real;

begin

   a := 1.0;
   writeln(a: 1: 0);
   writeln('deviation: zero precision fields allowed');
end.
