gfortran.h (gfc_error): Rename overload with OPT argument to...

	* gfortran.h (gfc_error): Rename overload with OPT argument to...
	(gfc_error_opt): ... this.
	* error.c (gfc_error): Rename overloads with OPT argument to...
	(gfc_error_opt): ... this.  Adjust callers.
	(gfc_notify_std, gfc_error): Adjust callers.
	* resolve.c (resolve_structure_cons, resolve_global_procedure): Use
	gfc_error_opt instead of gfc_error.
	* interface.c (argument_rank_mismatch, compare_parameter,
	gfc_check_typebound_override): Likewise.  Fix up formatting.

From-SVN: r243941

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index f34ec9aae64fd434a20db3aa7ccd3b9cbd9a7a15..ce640321da0153bc95043efb6d684e3425691641 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,15 @@
+2016-12-27  Jakub Jelinek  <jakub@redhat.com>
+
+       * gfortran.h (gfc_error): Rename overload with OPT argument to...
+       (gfc_error_opt): ... this.
+       * error.c (gfc_error): Rename overloads with OPT argument to...
+       (gfc_error_opt): ... this.  Adjust callers.
+       (gfc_notify_std, gfc_error): Adjust callers.
+       * resolve.c (resolve_structure_cons, resolve_global_procedure): Use
+       gfc_error_opt instead of gfc_error.
+       * interface.c (argument_rank_mismatch, compare_parameter,
+       gfc_check_typebound_override): Likewise.  Fix up formatting.
+
 2016-12-23  Andre Vehreschild  <vehre@gcc.gnu.org>
 
        * trans-expr.c (trans_class_assignment): Allocate memory of _vptr->size

diff --git a/gcc/fortran/error.c b/gcc/fortran/error.c
index dcd9647dac6832d395c0e4e4e2e8c9368c244742..801939c3430d57ea887b37bf058bb431ed0d0297 100644 (file)
--- a/gcc/fortran/error.c
+++ b/gcc/fortran/error.c
@@ -67,7 +67,7 @@ gfc_push_suppress_errors (void)
 }
 
 static void
-gfc_error (int opt, const char *gmsgid, va_list ap)  ATTRIBUTE_GCC_GFC(2,0);
+gfc_error_opt (int opt, const char *gmsgid, va_list ap)  ATTRIBUTE_GCC_GFC(2,0);
 
 static bool
 gfc_warning (int opt, const char *gmsgid, va_list ap) ATTRIBUTE_GCC_GFC(2,0);
@@ -902,7 +902,7 @@ gfc_notify_std (int std, const char *gmsgid, ...)
   if (warning)
     gfc_warning (0, buffer, argp);
   else
-    gfc_error (0, buffer, argp);
+    gfc_error_opt (0, buffer, argp);
   va_end (argp);
 
   return (warning && !warnings_are_errors) ? true : false;
@@ -1252,7 +1252,7 @@ gfc_warning_check (void)
 /* Issue an error.  */
 
 static void
-gfc_error (int opt, const char *gmsgid, va_list ap)
+gfc_error_opt (int opt, const char *gmsgid, va_list ap)
 {
   va_list argp;
   va_copy (argp, ap);
@@ -1308,11 +1308,11 @@ gfc_error (int opt, const char *gmsgid, va_list ap)
 
 
 void
-gfc_error (int opt, const char *gmsgid, ...)
+gfc_error_opt (int opt, const char *gmsgid, ...)
 {
   va_list argp;
   va_start (argp, gmsgid);
-  gfc_error (opt, gmsgid, argp);
+  gfc_error_opt (opt, gmsgid, argp);
   va_end (argp);
 }
 
@@ -1322,7 +1322,7 @@ gfc_error (const char *gmsgid, ...)
 {
   va_list argp;
   va_start (argp, gmsgid);
-  gfc_error (0, gmsgid, argp);
+  gfc_error_opt (0, gmsgid, argp);
   va_end (argp);
 }
 

diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index b303189b7c667e515c02d9d3774b1ec01c3eb42d..799c2ac31051f3484804369501418ef012e2a2e0 100644 (file)
--- a/gcc/fortran/gfortran.h
+++ b/gcc/fortran/gfortran.h
@@ -2793,7 +2793,7 @@ bool gfc_warning_now_at (location_t loc, int opt, const char *gmsgid, ...)
 void gfc_clear_warning (void);
 void gfc_warning_check (void);
 
-void gfc_error (int opt, const char *, ...) ATTRIBUTE_GCC_GFC(2,3);
+void gfc_error_opt (int opt, const char *, ...) ATTRIBUTE_GCC_GFC(2,3);
 void gfc_error (const char *, ...) ATTRIBUTE_GCC_GFC(1,2);
 void gfc_error_now (const char *, ...) ATTRIBUTE_GCC_GFC(1,2);
 void gfc_fatal_error (const char *, ...) ATTRIBUTE_NORETURN ATTRIBUTE_GCC_GFC(1,2);

diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c
index 6264aba39164f4e6489453d4a2922a01c241fd6a..465d667d844249d5d8e0cd911d66e41781cbea27 100644 (file)
--- a/gcc/fortran/interface.c
+++ b/gcc/fortran/interface.c
@@ -2125,25 +2125,17 @@ argument_rank_mismatch (const char *name, locus *where,
 
   /* TS 29113, C407b.  */
   if (rank2 == -1)
-    {
-      gfc_error ("The assumed-rank array at %L requires that the dummy argument"
-                " %qs has assumed-rank", where, name);
-    }
+    gfc_error ("The assumed-rank array at %L requires that the dummy argument"
+              " %qs has assumed-rank", where, name);
   else if (rank1 == 0)
-    {
-      gfc_error (OPT_Wargument_mismatch, "Rank mismatch in argument %qs at %L "
-                "(scalar and rank-%d)", name, where, rank2);
-    }
+    gfc_error_opt (OPT_Wargument_mismatch, "Rank mismatch in argument %qs "
+                  "at %L (scalar and rank-%d)", name, where, rank2);
   else if (rank2 == 0)
-    {
-      gfc_error (OPT_Wargument_mismatch, "Rank mismatch in argument %qs at %L "
-                "(rank-%d and scalar)", name, where, rank1);
-    }
+    gfc_error_opt (OPT_Wargument_mismatch, "Rank mismatch in argument %qs "
+                  "at %L (rank-%d and scalar)", name, where, rank1);
   else
-    {
-      gfc_error (OPT_Wargument_mismatch, "Rank mismatch in argument %qs at %L "
-                "(rank-%d and rank-%d)", name, where, rank1, rank2);
-    }
+    gfc_error_opt (OPT_Wargument_mismatch, "Rank mismatch in argument %qs "
+                  "at %L (rank-%d and rank-%d)", name, where, rank1, rank2);
 }
 
 
@@ -2192,9 +2184,9 @@ compare_parameter (gfc_symbol *formal, gfc_expr *actual,
                                   sizeof(err), NULL, NULL))
        {
          if (where)
-           gfc_error (OPT_Wargument_mismatch,
-                      "Interface mismatch in dummy procedure %qs at %L: %s",
-                      formal->name, &actual->where, err);
+           gfc_error_opt (OPT_Wargument_mismatch,
+                          "Interface mismatch in dummy procedure %qs at %L:"
+                          " %s", formal->name, &actual->where, err);
          return false;
        }
 
@@ -2220,9 +2212,9 @@ compare_parameter (gfc_symbol *formal, gfc_expr *actual,
                                   err, sizeof(err), NULL, NULL))
        {
          if (where)
-           gfc_error (OPT_Wargument_mismatch,
-                      "Interface mismatch in dummy procedure %qs at %L: %s",
-                      formal->name, &actual->where, err);
+           gfc_error_opt (OPT_Wargument_mismatch,
+                          "Interface mismatch in dummy procedure %qs at %L:"
+                          " %s", formal->name, &actual->where, err);
          return false;
        }
     }
@@ -2251,10 +2243,10 @@ compare_parameter (gfc_symbol *formal, gfc_expr *actual,
                                         CLASS_DATA (actual)->ts.u.derived)))
     {
       if (where)
-       gfc_error (OPT_Wargument_mismatch,
-                  "Type mismatch in argument %qs at %L; passed %s to %s",
-                  formal->name, where, gfc_typename (&actual->ts),
-                  gfc_typename (&formal->ts));
+       gfc_error_opt (OPT_Wargument_mismatch,
+                      "Type mismatch in argument %qs at %L; passed %s to %s",
+                      formal->name, where, gfc_typename (&actual->ts),
+                      gfc_typename (&formal->ts));
       return false;
     }
 
@@ -4551,9 +4543,9 @@ gfc_check_typebound_override (gfc_symtree* proc, gfc_symtree* old)
       if (!gfc_check_dummy_characteristics (proc_formal->sym, old_formal->sym,
                                        check_type, err, sizeof(err)))
        {
-         gfc_error (OPT_Wargument_mismatch,
-                    "Argument mismatch for the overriding procedure "
-                    "%qs at %L: %s", proc->name, &where, err);
+         gfc_error_opt (OPT_Wargument_mismatch,
+                        "Argument mismatch for the overriding procedure "
+                        "%qs at %L: %s", proc->name, &where, err);
          return false;
        }
 

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 2c70e6cfe9bfcf1bd4607e3a7972d57cfc17eab5..7cf7a41be424fb99fe931b0adffc7a1c863875c9 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -1312,10 +1312,10 @@ resolve_structure_cons (gfc_expr *expr, int init)
          if (s2 && !gfc_compare_interfaces (comp->ts.interface, s2, name, 0, 1,
                                             err, sizeof (err), NULL, NULL))
            {
-             gfc_error (OPT_Wargument_mismatch,
-                        "Interface mismatch for procedure-pointer component "
-                        "%qs in structure constructor at %L: %s",
-                        comp->name, &cons->expr->where, err);
+             gfc_error_opt (OPT_Wargument_mismatch,
+                            "Interface mismatch for procedure-pointer "
+                            "component %qs in structure constructor at %L:"
+                            " %s", comp->name, &cons->expr->where, err);
              return false;
            }
        }
@@ -2466,9 +2466,9 @@ resolve_global_procedure (gfc_symbol *sym, locus *where,
       if (!gfc_compare_interfaces (sym, def_sym, sym->name, 0, 1,
                                   reason, sizeof(reason), NULL, NULL))
        {
-         gfc_error (OPT_Wargument_mismatch,
-                    "Interface mismatch in global procedure %qs at %L: %s ",
-                   sym->name, &sym->declared_at, reason);
+         gfc_error_opt (OPT_Wargument_mismatch,
+                        "Interface mismatch in global procedure %qs at %L:"
+                        " %s ", sym->name, &sym->declared_at, reason);
          goto done;
        }