interface.c (check_dummy_characteristics): Count dimensions starting from one in...

	* interface.c (check_dummy_characteristics): Count dimensions starting
	from one in diagnostic.

From-SVN: r179726

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index d717831086723382c1fc2a90ae394abe7e261afa..db1fc280625e4616c9a41273fea532c539a6e8a9 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2011-10-09  Mikael Morin  <mikael.morin@sfr.fr>
+
+       * interface.c (check_dummy_characteristics): Count dimensions starting
+       from one in diagnostic.
+
 2011-10-09  Tobias Burnus  <burnus@net-b.de>
 
        * Make-lang.in (F95_PARSER_OBJS, GFORTRAN_TRANS_DEPS): Add

diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c
index 43b911376f5fbe0d81324c30d6da54faa19378c4..5308513b774a473875a47d778798431580ed5b30 100644 (file)
--- a/gcc/fortran/interface.c
+++ b/gcc/fortran/interface.c
@@ -1098,7 +1098,7 @@ check_dummy_characteristics (gfc_symbol *s1, gfc_symbol *s2,
              case  1:
              case -3:
                snprintf (errmsg, err_len, "Shape mismatch in dimension %i of "
-                         "argument '%s'", i, s1->name);
+                         "argument '%s'", i + 1, s1->name);
                return FAILURE;
 
              case -2: