From c123c5ba64cc59cceb71594b415c75c1f7618349 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Mon, 26 Jan 2015 22:05:39 +0100 Subject: [PATCH] io.c (gfc_match_inquire): Replace "-1" by a defined constant. 2015-01-26 Tobias Burnus * io.c (gfc_match_inquire): Replace "-1" by a defined constant. From-SVN: r220135 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/io.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * io.c (gfc_match_inquire): Replace "-1" by a defined constant. + 2015-01-26 Janus Weil 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; -- 2.30.2