diff options
author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-01-23 02:06:17 +0000 |
---|---|---|
committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-01-23 02:06:17 +0000 |
commit | 20056f6002a17c609321d27ecfa6c52fe73e77a1 (patch) | |
tree | 9748c5745829d567a8eece97f28b06bdc90ef7f4 | |
parent | bb295963d4099db5c2822140430e950ac7f78894 (diff) | |
download | gcc-20056f6002a17c609321d27ecfa6c52fe73e77a1.zip gcc-20056f6002a17c609321d27ecfa6c52fe73e77a1.tar.gz gcc-20056f6002a17c609321d27ecfa6c52fe73e77a1.tar.bz2 |
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
-rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/negative_unit_int8.f | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 1fc0241..a0ee68c 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 d4c3557..9b4042e 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 |