diff --git a/bugs/bug0230.pp b/bugs/bug0230.pp index 5335549dda..1b0744c6d7 100644 --- a/bugs/bug0230.pp +++ b/bugs/bug0230.pp @@ -7,8 +7,8 @@ var e : extended; begin - e:=0.0; + e:=-1.0; writeln(ln(e)); - writeln(ln(0)); +// writeln(ln(0)); writeln(power(0,1.0)); end . diff --git a/bugs/bug0236.pp b/bugs/bug0236.pp index 59638f73bf..5733b3f05e 100644 --- a/bugs/bug0236.pp +++ b/bugs/bug0236.pp @@ -22,7 +22,7 @@ procedure test; begin new(hp); - hp^.en:=two; + hp^.en:=zero; new(hp^.next); hp^.next^.en:=three; t:=hp^.en; @@ -32,4 +32,4 @@ procedure test; begin test; -end. \ No newline at end of file +end. diff --git a/bugs/readme.txt b/bugs/readme.txt index 41ef126bb1..a178d2eccb 100644 --- a/bugs/readme.txt +++ b/bugs/readme.txt @@ -284,6 +284,7 @@ Fixed bugs: bug0231.pp Problem with comments OK 0.99.11 (PFV) bug0233.pp Problem with enum sets in args OK 0.99.11 (PFV) bug0235.pp Val(cardinal) bug OK 0.99.11 (JM) + bug0236.pp Problem with range check of subsets !! compile with -Cr OK 0.99.11 (PFV) Unproducable bugs: @@ -319,4 +320,3 @@ bug0230.pp several strange happen on the ln function: ln(0): no bug0232.pp const. procedure variables need a special syntax if they use calling specification modifiers bug0234.pp New with void pointer -bug0236.pp Problem with range check of subsets !! compile with -Cr