peter 27 年之前
父節點
當前提交
7fda0e527b
共有 2 個文件被更改,包括 10 次插入0 次删除
  1. 9 0
      bugs/bug0122.pp
  2. 1 0
      bugs/readme.txt

+ 9 - 0
bugs/bug0122.pp

@@ -0,0 +1,9 @@
+
+function f:longint;
+begin
+  exit(1);
+end;
+
+begin
+  writeln(f);
+end.

+ 1 - 0
bugs/readme.txt

@@ -167,3 +167,4 @@ bug0118.pp   Procedural vars cannot be assigned nil ?
 bug0119.pp   problem with methods
 bug0120.pp   inc/dec(enumeration) doesn't work
 bug0121.pp   cardinal -> byte conversion not work (and crashes)
+bug0122.pp   exit() gives a warning that the result is not set