From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Fri, 23 Jan 2015 02:06:17 +0000 (+0000)
Subject: re PR fortran/61933 (Inquire on internal units)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=20056f6002a17c609321d27ecfa6c52fe73e77a1;p=gcc.git

re PR fortran/61933 (Inquire on internal units)

2015-01-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/61933
	* gfortran.dg/negative_unit_int8.f: Update.

From-SVN: r220025
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 1fc0241b994..a0ee68cc148 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2015-01-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/61933
+	* gfortran.dg/negative_unit_int8.f: Update.
+
 2015-01-22  Jeff Law  <law@redhat.com>
 
 	PR target/52076
diff --git a/gcc/testsuite/gfortran.dg/negative_unit_int8.f b/gcc/testsuite/gfortran.dg/negative_unit_int8.f
index d4c35579f04..9b4042e2c9f 100644
--- a/gcc/testsuite/gfortran.dg/negative_unit_int8.f
+++ b/gcc/testsuite/gfortran.dg/negative_unit_int8.f
@@ -30,6 +30,6 @@
 ! This one is nasty
       inquire (unit=i, exist=l, iostat=i)
       if (l) call abort
-      if (i.ne.ERROR_BAD_UNIT) call abort
+      if (i.ne.0) call abort
 
       end