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

begin word bits address = word 16rffffffff;
      assert (address = word 16rffffffff);
      skip
end