diff options
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index c26ffeb..40d851c 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -2299,7 +2299,7 @@ kind_expr: if (ts->f90_type != BT_UNKNOWN && ts->f90_type != ts->type && !((ts->f90_type == BT_REAL && ts->type == BT_COMPLEX) || (ts->f90_type == BT_COMPLEX && ts->type == BT_REAL))) - gfc_warning_now ("C kind type parameter is for type %s but type at %L " + gfc_warning_now (0, "C kind type parameter is for type %s but type at %L " "is %s", gfc_basic_typename (ts->f90_type), &where, gfc_basic_typename (ts->type)); @@ -3318,7 +3318,7 @@ gfc_match_import (void) if (gfc_find_symtree (gfc_current_ns->sym_root, name)) { - gfc_warning ("%qs is already IMPORTed from host scoping unit " + gfc_warning (0, "%qs is already IMPORTed from host scoping unit " "at %C", name); goto next_item; } @@ -4156,7 +4156,7 @@ verify_bind_c_sym (gfc_symbol *tmp_sym, gfc_typespec *ts, && tmp_sym->binding_label) /* Use gfc_warning_now because we won't say that the symbol fails just because of this. */ - gfc_warning_now ("Symbol %qs at %L is marked PRIVATE but has been " + gfc_warning_now (0, "Symbol %qs at %L is marked PRIVATE but has been " "given the binding label %qs", tmp_sym->name, &(tmp_sym->declared_at), tmp_sym->binding_label); @@ -6625,7 +6625,7 @@ cray_pointer_decl (void) return MATCH_ERROR; } else if (cptr->ts.kind < gfc_index_integer_kind) - gfc_warning ("Cray pointer at %C has %d bytes of precision;" + gfc_warning (0, "Cray pointer at %C has %d bytes of precision;" " memory addresses require %d bytes", cptr->ts.kind, gfc_index_integer_kind); |