diff mbox

[Fortran,committed] Minor follow up patch for the recent io.c change

Message ID 54C6AC54.1010406@net-b.de
State New
Headers show

Commit Message

Tobias Burnus Jan. 26, 2015, 9:06 p.m. UTC 
This patch replaces the hard-wired -1 of patch 
https://gcc.gnu.org/ml/fortran/2015-01/msg00046.html by the later-added 
#define.

Committed as obvious as Rev. 220135.

Tobias
diff mbox

Patch

Index: gcc/fortran/ChangeLog
===================================================================
--- gcc/fortran/ChangeLog	(Revision 220134)
+++ gcc/fortran/ChangeLog	(Arbeitskopie)
@@ -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
Index: gcc/fortran/io.c
===================================================================
--- gcc/fortran/io.c	(Revision 220134)
+++ gcc/fortran/io.c	(Arbeitskopie)
@@ -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;