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

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