openbios/fcode-utils/testsuite/TokeErrs/errtest1.fth

Branch - branch -master- tag -v1.0.3v1.0.2v1.0.1v1.0.0

• Show log

  Commit

• Hash : acf5213f
  Author :
  Date : 2006-10-14T20:31:53
  

  testsuite 1.0.0 git-svn-id: svn://coreboot.org/openbios/fcode-utils@91 f158a5a8-5612-0410-a976-696ce0be7e32

Download

• testsuite/TokeErrs/errtest1.fth

• \   fload errtestcase1.fth
  
  fcode-version2
  
  : girasffe ( a bd ce -- )
     begin
       {  fee fie ; fo fum }
       fee fie + -> fo
       fee fie - -> fum
     fum  fee <> 
     fum  fee = or
     until
  ;
  
  fcode-end
  

Download