Commit 71a21b9e by Dominique d'Humieres

re PR fortran/84354 (Replace '%qs' with %qs in fortran/decl.c)

2018-02-16  Dominique d'Humieres <dominiq@gcc.gnu.org>

	PR fortran/84354
	* decl.c (gfc_get_pdt_instance): Replace '%qs' with %qs.

From-SVN: r257750
parent 8e7f98df
2018-02-16 Dominique d'Humieres <dominiq@gcc.gnu.org>
PR fortran/84354
* decl.c (gfc_get_pdt_instance): Replace '%qs' with %qs.
2018-02-15 Janus Weil <janus@gcc.gnu.org>
PR fortran/84409
......
......@@ -3302,7 +3302,7 @@ gfc_get_pdt_instance (gfc_actual_arglist *param_list, gfc_symbol **sym,
kind_expr = gfc_copy_expr (c1->initializer);
else if (!(actual_param && param->attr.pdt_len))
{
gfc_error ("The derived parameter '%qs' at %C does not "
gfc_error ("The derived parameter %qs at %C does not "
"have a default value", param->name);
goto error_return;
}
......@@ -3362,14 +3362,14 @@ gfc_get_pdt_instance (gfc_actual_arglist *param_list, gfc_symbol **sym,
&& (actual_param->spec_type == SPEC_ASSUMED
|| actual_param->spec_type == SPEC_DEFERRED))
{
gfc_error ("The KIND parameter '%qs' at %C cannot either be "
gfc_error ("The KIND parameter %qs at %C cannot either be "
"ASSUMED or DEFERRED", param->name);
goto error_return;
}
if (!kind_expr || !gfc_is_constant_expr (kind_expr))
{
gfc_error ("The value for the KIND parameter '%qs' at %C does not "
gfc_error ("The value for the KIND parameter %qs at %C does not "
"reduce to a constant expression", param->name);
goto error_return;
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment