re PR fortran/32860 (Support %ld (for "long") for gfc_warning)

[gcc.git] / gcc / fortran / interface.c

diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c
index 293a54ad0aa7c63fdfae5714b84f50f296ae3a4c..dbd7538c80111ba8d53be29ebbc5cc4c881e6f48 100644 (file)
--- a/gcc/fortran/interface.c
+++ b/gcc/fortran/interface.c
@@ -1680,14 +1680,14 @@ compare_actual_formal (gfc_actual_arglist **ap, gfc_formal_arglist *formal,
        {
          if (a->expr->ts.type == BT_CHARACTER && !f->sym->as && where)
            gfc_warning ("Character length of actual argument shorter "
-                       "than of dummy argument '%s' (%d/%d) at %L",
-                       f->sym->name, (int) actual_size,
-                       (int) formal_size, &a->expr->where);
+                       "than of dummy argument '%s' (%lu/%lu) at %L",
+                       f->sym->name, actual_size, formal_size,
+                       &a->expr->where);
           else if (where)
            gfc_warning ("Actual argument contains too few "
-                       "elements for dummy argument '%s' (%d/%d) at %L",
-                       f->sym->name, (int) actual_size,
-                       (int) formal_size, &a->expr->where);
+                       "elements for dummy argument '%s' (%lu/%lu) at %L",
+                       f->sym->name, actual_size, formal_size,
+                       &a->expr->where);
          return  0;
        }