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
This commit is contained in:
parent
28d0b59566
commit
46a9f26bd3
@ -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
|
||||
|
@ -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:
|
||||
|
Loading…
Reference in New Issue
Block a user