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

begin word bits address = word 16rfff0ffff;
      assert ((address OR word 16rff00ffff) = word 16rfff0ffff);
      skip
end