begin union (int,real) j;
      j := "joo" { dg-error "char.*union \\( *real *, *int *\\)" }
end