gcc/testsuite/algol68/compile/error-word-bits-3.a68

begin word bits address = word 16rffffffff;
      assert (address = short 16rffffffff); { dg-error "word bits" }
      skip
end