mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-26 05:17:12 +01:00
+ New bugs
This commit is contained in:
parent
5c8193fd4c
commit
355e5bd740
8
bugs/bug0234.pp
Normal file
8
bugs/bug0234.pp
Normal file
@ -0,0 +1,8 @@
|
|||||||
|
program bug0232;
|
||||||
|
|
||||||
|
var p:pointer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
new(p);
|
||||||
|
dispose(p);
|
||||||
|
end.
|
||||||
14
bugs/bug0235.pp
Normal file
14
bugs/bug0235.pp
Normal file
@ -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.
|
||||||
Loading…
Reference in New Issue
Block a user