diff --git a/bugs/bug0234.pp b/bugs/bug0234.pp new file mode 100644 index 0000000000..9dedcc2442 --- /dev/null +++ b/bugs/bug0234.pp @@ -0,0 +1,8 @@ +program bug0232; + +var p:pointer; + +begin + new(p); + dispose(p); +end. diff --git a/bugs/bug0235.pp b/bugs/bug0235.pp new file mode 100644 index 0000000000..a61fefa091 --- /dev/null +++ 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.