from one in diagnostic.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@179726
138bc75d-0d04-0410-961f-
82ee72b054a4
+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
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: