From: Tobias Burnus <burnus@net-b.de>
Date: Mon, 26 Jan 2015 21:05:39 +0000 (+0100)
Subject: io.c (gfc_match_inquire): Replace "-1" by a defined constant.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c123c5ba64cc59cceb71594b415c75c1f7618349;p=gcc.git

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

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

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

From-SVN: r220135
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 478c59538a2..e31db0ce6c5 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c
index a03984ca607..a13d1aed044 100644
--- a/gcc/fortran/io.c
+++ b/gcc/fortran/io.c
@@ -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;