diff options
Diffstat (limited to 'gcc/fortran/frontend-passes.c')
| -rw-r--r-- | gcc/fortran/frontend-passes.c | 42 |
1 files changed, 22 insertions, 20 deletions
diff --git a/gcc/fortran/frontend-passes.c b/gcc/fortran/frontend-passes.c index 97a9164..9b96f29 100644 --- a/gcc/fortran/frontend-passes.c +++ b/gcc/fortran/frontend-passes.c @@ -1708,17 +1708,19 @@ doloop_code (gfc_code **c, int *walk_subtrees ATTRIBUTE_UNUSED, && a->expr->symtree->n.sym == do_sym) { if (f->sym->attr.intent == INTENT_OUT) - gfc_error_now("Variable '%s' at %L set to undefined value " - "inside loop beginning at %L as INTENT(OUT) " - "argument to subroutine '%s'", do_sym->name, - &a->expr->where, &doloop_list[i]->loc, - co->symtree->n.sym->name); + gfc_error_now_1 ("Variable '%s' at %L set to undefined " + "value inside loop beginning at %L as " + "INTENT(OUT) argument to subroutine '%s'", + do_sym->name, &a->expr->where, + &doloop_list[i]->loc, + co->symtree->n.sym->name); else if (f->sym->attr.intent == INTENT_INOUT) - gfc_error_now("Variable '%s' at %L not definable inside loop " - "beginning at %L as INTENT(INOUT) argument to " - "subroutine '%s'", do_sym->name, - &a->expr->where, &doloop_list[i]->loc, - co->symtree->n.sym->name); + gfc_error_now_1 ("Variable '%s' at %L not definable inside " + "loop beginning at %L as INTENT(INOUT) " + "argument to subroutine '%s'", + do_sym->name, &a->expr->where, + &doloop_list[i]->loc, + co->symtree->n.sym->name); } } a = a->next; @@ -1778,17 +1780,17 @@ do_function (gfc_expr **e, int *walk_subtrees ATTRIBUTE_UNUSED, && a->expr->symtree->n.sym == do_sym) { if (f->sym->attr.intent == INTENT_OUT) - gfc_error_now("Variable '%s' at %L set to undefined value " - "inside loop beginning at %L as INTENT(OUT) " - "argument to function '%s'", do_sym->name, - &a->expr->where, &doloop_list[i]->loc, - expr->symtree->n.sym->name); + gfc_error_now_1 ("Variable '%s' at %L set to undefined value " + "inside loop beginning at %L as INTENT(OUT) " + "argument to function '%s'", do_sym->name, + &a->expr->where, &doloop_list[i]->loc, + expr->symtree->n.sym->name); else if (f->sym->attr.intent == INTENT_INOUT) - gfc_error_now("Variable '%s' at %L not definable inside loop " - "beginning at %L as INTENT(INOUT) argument to " - "function '%s'", do_sym->name, - &a->expr->where, &doloop_list[i]->loc, - expr->symtree->n.sym->name); + gfc_error_now_1 ("Variable '%s' at %L not definable inside loop" + " beginning at %L as INTENT(INOUT) argument to" + " function '%s'", do_sym->name, + &a->expr->where, &doloop_list[i]->loc, + expr->symtree->n.sym->name); } } a = a->next; |