Browse Source

no message

florian 25 years ago
parent
commit
bab94870da
1 changed files with 19 additions and 0 deletions
  1. 19 0
      tests/webtbs/tw1275.pp

+ 19 - 0
tests/webtbs/tw1275.pp

@@ -0,0 +1,19 @@
+var
+  sizes:array [1..3] of int64;
+  i:integer;
+
+function Count:int64;
+var
+  c:int64;
+begin
+  c:=1;
+
+  writeln(c);
+  Count:=c;
+end;
+
+begin
+    i:=1;
+    sizes[i]:=Count();
+    writeln(sizes[i]);
+end.