search

gerryjackson / forth2012-test-suite

Test programs for Forth 2012 and ANS Forth
72 stars 15 forks source link

Incorrect way to skip test in fpzero-test.4th #36

Closed leonwagner closed 2 years ago

leonwagner commented 2 years ago

The test for floating-point signed zero support uses this to skip to the end of the file, leaving the [IF] unresolved:

-0E 0E 0E F~ [IF]
   cr cr .( ** System does not support floating point signed zero. **)
   cr    .( ** Therefore these tests have been skipped **) cr
   : goto-eof begin refill 0= until ;  goto-eof
[THEN]

That [THEN] should be moved to the end of the file and replaced by [ELSE].

gerryjackson commented 2 years ago

Suggested solution used and definition GOTO-EOF deleted. Issue closed