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

begin bits foo = word 16r0; { dg-error "" }
      skip
end