OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

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

From-SVN: r179726
This commit is contained in:
Mikael Morin 2011-10-09 18:19:06 +02:00 committed by Mikael Morin
parent 28d0b59566
commit 46a9f26bd3
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -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> 2011-10-09 Tobias Burnus <burnus@net-b.de>
* Make-lang.in (F95_PARSER_OBJS, GFORTRAN_TRANS_DEPS): Add * Make-lang.in (F95_PARSER_OBJS, GFORTRAN_TRANS_DEPS): Add

2
gcc/fortran/interface.c
View File

@ -1098,7 +1098,7 @@ check_dummy_characteristics (gfc_symbol *s1, gfc_symbol *s2,
case 1: case 1:
case -3: case -3:
snprintf (errmsg, err_len, "Shape mismatch in dimension %i of " snprintf (errmsg, err_len, "Shape mismatch in dimension %i of "
"argument '%s'", i, s1->name); "argument '%s'", i + 1, s1->name);
return FAILURE; return FAILURE;
case -2: case -2: