| 123456789101112131415161718 |
- program bug_fmtcurrncy;
- // If write/writeln parameter list includes any item FOLLOWING a
- // currency variable with format specs, the compiler throws
- // an Access violation exception.
- var
- V: currency; // currency blows up, all other real types are Ok
- BEGIN
- V := 34567;
- write( V:0:2, 'x' ); // This form produces the error
- write( V:0:2 ); // This equivalent form compiles Ok
- writeln( 'x' );
- END.
|
