version 1.8, 2003/08/25 14:17:55
|
version 1.10, 2007/12/31 17:34:59
|
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. |
|
|
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 } |