diff options
Diffstat (limited to 'mips/tests/webtbs/tw20998.pp')
-rw-r--r-- | mips/tests/webtbs/tw20998.pp | 23 |
1 files changed, 14 insertions, 9 deletions
diff --git a/mips/tests/webtbs/tw20998.pp b/mips/tests/webtbs/tw20998.pp index 92b6f93d15..6ee9ea7cbf 100644 --- a/mips/tests/webtbs/tw20998.pp +++ b/mips/tests/webtbs/tw20998.pp @@ -1,18 +1,23 @@ var i : int64; - + j, k: longint; begin - i:=6400; - i:=i div 64; - if i<>100 then - halt(1); + k:=64; + for j:=6400 to 6464 do + begin + i:=j; + if (i div 64) <> (i div k) then + halt(1); + end; i:=6500; i:=i div 65; if i<>100 then halt(1); - i:=-6400; - i:=i div 64; - if i<>-100 then - halt(1); + for j:=-6400 downto -6464 do + begin + i:=j; + if (i div 64) <> (i div k) then + halt(2); + end; writeln('ok'); end. |