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

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

From-SVN: r179726

gcc/fortran/ChangeLog

+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

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: