--- gforth/test/gforth-nofast.fs	2006/10/27 21:47:02	1.1
+++ gforth/test/gforth-nofast.fs	2007/12/31 17:34:59	1.4
@@ -1,6 +1,6 @@
-\ 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.
 
@@ -20,7 +20,18 @@
 
 require ./tester.fs
 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
 { max-n invert -1 ' /    catch 0= -> max-n invert -1 false }
 { max-n invert -1 ' mod  catch 0= -> max-n invert -1 false }