gcc/testsuite/algol68/execute/bits-test-1.a68

begin assert (NOT (16rff TEST 8));
      assert (NOT (16rff TEST -1));
      assert (NOT (16rff TEST -2));
      assert (2r100 TEST 2)
end