Diff for /gforth/test/dbltest.fs between versions 1.8 and 1.12

version 1.8, 2003/08/25 14:17:55 version 1.12, 2010/09/01 16:52:12
Line 1 Line 1
 \ test some double primitives  \ test some double primitives
   
 \ Copyright (C) 1996,1998,1999,2000,2003 Free Software Foundation, Inc.  \ Copyright (C) 1996,1998,1999,2000,2003,2007 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
 \ Gforth is free software; you can redistribute it and/or  \ Gforth is free software; you can redistribute it and/or
 \ modify it under the terms of the GNU General Public License  \ modify it under the terms of the GNU General Public License
 \ as published by the Free Software Foundation; either version 2  \ as published by the Free Software Foundation, either version 3
 \ of the License, or (at your option) any later version.  \ of the License, or (at your option) any later version.
   
 \ This program is distributed in the hope that it will be useful,  \ This program is distributed in the hope that it will be useful,
Line 15 Line 15
 \ GNU General Public License for more details.  \ GNU General Public License for more details.
   
 \ You should have received a copy of the GNU General Public License  \ You should have received a copy of the GNU General Public License
 \ along with this program; if not, write to the Free Software  \ along with this program. If not, see http://www.gnu.org/licenses/.
 \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.  
   
 require ./tester.fs  require ./tester.fs
 require ./coretest.fs  require ./coretest.fs
   
 \ fm/mod, sm/rem, um/mod, s>d, m*, um* already covered in coretest.fs  \ fm/mod, sm/rem, um/mod, s>d, m*, um* already covered in coretest.fs
   
   testing double primitives
 { 0. 0 m+ -> 0. }  { 0. 0 m+ -> 0. }
 { 0. 1 m+ -> 1. }  { 0. 1 m+ -> 1. }
 { 0. -1 m+ -> -1. }  { 0. -1 m+ -> -1. }
Line 116  require ./coretest.fs Line 116  require ./coretest.fs
 { 1 0 0 1 du< -> true }  { 1 0 0 1 du< -> true }
 { 0 1 1 0 du< -> false }  { 0 1 1 0 du< -> false }
 { -1. 0. du< -> false }  { -1. 0. du< -> false }
   
   \ some M*/ consistency checks against */
   
   { -7. 3 5 M*/ -> -7 3 5 */ s>d }
   {  7. 3 5 M*/ ->  7 3 5 */ s>d }

Removed from v.1.8  
changed lines
  Added in v.1.12


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>