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

io.c (gfc_match_inquire): Replace "-1" by a defined constant.

Browse Source 
2015-01-26  Tobias Burnus  <burnus@net-b.de>

        * io.c (gfc_match_inquire): Replace "-1" by a defined constant.

From-SVN: r220135
This commit is contained in:
Tobias Burnus 2015-01-26 22:05:39 +01:00 committed by Tobias Burnus
parent 3349605dc7
commit c123c5ba64
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
2015-01-26 Tobias Burnus <burnus@net-b.de>
* io.c (gfc_match_inquire): Replace "-1" by a defined constant.
2015-01-26 Janus Weil <janus@gcc.gnu.org>
PR fortran/64230

2
gcc/fortran/io.c
View File

@ -4000,7 +4000,7 @@ gfc_match_inquire (void)
if (inquire->unit != NULL && inquire->unit->expr_type == EXPR_CONSTANT
&& inquire->unit->ts.type == BT_INTEGER
&& mpz_get_si (inquire->unit->value.integer) == -1)
&& mpz_get_si (inquire->unit->value.integer) == GFC_INTERNAL_UNIT)
{
gfc_error ("UNIT number in INQUIRE statement at %L can not be -1", &loc);
goto cleanup;