Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* test only with longint to byte typecast

pierre 22 years ago
parent
03f1fef7aa
commit
dbb291bc0b
1 changed files with 10 additions and 0 deletions
Split View Show Diff Stats
  1. 10 0
      tests/tbf/tb0107a.pp

+ 10 - 0
tests/tbf/tb0107a.pp
View File 

@@ -0,0 +1,10 @@
 
+{ %FAIL }
 
+
 
+var
 
+  i : longint;
 
+  j : word;
 
+
 
+begin
 
+  j:=5;
 
+  byte(i):=j;
 
+end.