Browse Source

+ New bugs

daniel 26 years ago
parent
commit
355e5bd740
2 changed files with 22 additions and 0 deletions
  1. 8 0
      bugs/bug0234.pp
  2. 14 0
      bugs/bug0235.pp

+ 8 - 0
bugs/bug0234.pp

@@ -0,0 +1,8 @@
+program bug0232;
+
+var p:pointer;
+
+begin
+     new(p);
+     dispose(p);
+end.

+ 14 - 0
bugs/bug0235.pp

@@ -0,0 +1,14 @@
+program bug0233;
+
+var s:string;
+    w:cardinal;
+    code:word;
+
+begin
+    s:='192';
+    val(s,w,code);
+    if code<>0 then
+        writeln('Error')
+    else
+        writeln(w);
+end.