From 20056f6002a17c609321d27ecfa6c52fe73e77a1 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 23 Jan 2015 02:06:17 +0000 Subject: [PATCH] re PR fortran/61933 (Inquire on internal units) 2015-01-22 Jerry DeLisle PR fortran/61933 * gfortran.dg/negative_unit_int8.f: Update. From-SVN: r220025 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/negative_unit_int8.f | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + PR fortran/61933 + * gfortran.dg/negative_unit_int8.f: Update. + 2015-01-22 Jeff Law 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