Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Tree: 90744753b9
Branches Tags
freepascal.comp...
/
tests
/
tbf
/
tb0107.pp

tb0107.pp 109 B
History Raw

123456789101112 
  1. { %FAIL }
    2. 

  2. 

  3. var
    4. 

  4.   i : longint;
    5. 

  5.   j,j2 : word;
    6. 

  6.   k : byte;
    7. 

  7. 

  8. begin
    9. 

  9.   j:=5;
    10. 

  10.   byte(i):=j;
    11. 

  11.   longint(j):=12;
    12. 

  12. end.
    13.