version 1.1, 2006/10/27 21:47:02
|
version 1.4, 2007/12/31 17:34:59
|
Line 1
|
Line 1
|
\ test some gforth extension words |
\ test stuff that is not guaranteed in gforth-fast, but elsewhere |
|
|
\ Copyright (C) 2003,2004,2005 Free Software Foundation, Inc. |
\ Copyright (C) 2006,2007 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 20
|
Line 20
|
|
|
require ./tester.fs |
require ./tester.fs |
decimal |
decimal |
\ division exception tests; exceptions are not guaranteed for gforth-fast |
|
|
\ division by zero |
|
{ 1 0 ' / catch 0= -> 1 0 false } |
|
{ 1 0 ' mod catch 0= -> 1 0 false } |
|
{ 1 0 ' /mod catch 0= -> 1 0 false } |
|
{ 1 1 0 ' */mod catch 0= -> 1 1 0 false } |
|
{ 1 1 0 ' */ catch 0= -> 1 1 0 false } |
|
{ 1. 0 ' fm/mod catch 0= -> 1. 0 false } |
|
{ 1. 0 ' sm/rem catch 0= -> 1. 0 false } |
|
{ 1. 0 ' um/mod catch 0= -> 1. 0 false } |
|
|
|
\ division overflow |
environment-wordlist >order |
environment-wordlist >order |
{ max-n invert -1 ' / catch 0= -> max-n invert -1 false } |
{ max-n invert -1 ' / catch 0= -> max-n invert -1 false } |
{ max-n invert -1 ' mod catch 0= -> max-n invert -1 false } |
{ max-n invert -1 ' mod catch 0= -> max-n invert -1 false } |