peter 27 years ago
parent
commit
7fda0e527b
2 changed files with 10 additions and 0 deletions
  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