bug0062.pp 175 B

123456789
  1. Program Bug0062;
  2. var
  3. myvar:boolean;
  4. Begin
  5. { by fixing this we also start partly implementing LONGBOOL/WORDBOOL }
  6. myvar:=boolean(1); { illegal type conversion }
  7. end.