test_number.f

   1 ( -*- text -*- )
   2
   3 : TEST
   4         123                                . CR
   5         [ HEX -7F ] LITERAL      DECIMAL   . CR
   6         [ HEX 7FF77FF7 ] LITERAL HEX       . CR
   7         [ HEX -7FF77FF7 ] LITERAL 2 BASE ! . CR
   8         [ 2 BASE ! 1111111111101110111111111110111 ] LITERAL HEX . CR
   9 ;
  10
  11 DECIMAL ( restore immediate-mode base )