+ New bugs

2025-11-20 23:59:33 +01:00 · 1999-03-23 17:10:07 +00:00 · 1999-03-23 17:10:07 +00:00 · 355e5bd740
commit 355e5bd740
parent 5c8193fd4c
2 changed files with 22 additions and 0 deletions
--- a/bugs/bug0234.pp
+++ b/bugs/bug0234.pp
@ -0,0 +1,8 @@
+program bug0232;
+
+var p:pointer;
+
+begin
+     new(p);
+     dispose(p);
+end.
--- a/bugs/bug0235.pp
+++ b/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.