> + gfc_error ("'%s' argument of '%s' intrinsic at %L must be of kind"
> + "not wide than the default kind (%d)",
>
> "must be of kind not wide than" sounds strange,
> how about "must be of a kind not wider than".
That is exactly what I meant to write, sorry for the poor syntax. And
thanks for reviewing!
FX