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

* variant bug

peter 21 years ago
parent
0e3c6a39f8
commit
e9bc080c22
1 changed files with 8 additions and 0 deletions
Unified View Show Diff Stats
  1. 8 0
      tests/tbf/tb0162.pp

+ 8 - 0
tests/tbf/tb0162.pp
View File 

@@ -0,0 +1,8 @@
 
+{ %fail }
 
+
 
+var
 
+  a : word;
 
+begin
 
+  if a<>'fsfds' then;
 
+end.
 
+