projects / gcc.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: bb29596)
re PR fortran/61933 (Inquire on internal units)
authorJerry DeLisle <jvdelisle@gcc.gnu.org>
Fri, 23 Jan 2015 02:06:17 +0000 (02:06 +0000)
committerJerry DeLisle <jvdelisle@gcc.gnu.org>
Fri, 23 Jan 2015 02:06:17 +0000 (02:06 +0000)
2015-01-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

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

From-SVN: r220025

gcc/testsuite/ChangeLog patch | blob | history
gcc/testsuite/gfortran.dg/negative_unit_int8.f patch | blob | history

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 1fc0241b994c7e750485675b1397650dc1cc4fee..a0ee68cc148fa420b7d61b633f216957776c46ac 100644 (file)
--- 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 d4c35579f044c8bb6fe87fb3b2857cc9d8585370..9b4042e2c9f083274f2fbc2732e8657d6da7cf1c 100644 (file)
--- 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