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

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