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

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