diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/negative_unit.f')
-rw-r--r-- | gcc/testsuite/gfortran.dg/negative_unit.f | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/negative_unit.f b/gcc/testsuite/gfortran.dg/negative_unit.f index fd0100a14de..4f942e27e98 100644 --- a/gcc/testsuite/gfortran.dg/negative_unit.f +++ b/gcc/testsuite/gfortran.dg/negative_unit.f @@ -2,6 +2,8 @@ ! ! PR libfortran/20660 and other bugs (not filed in bugzilla) relating ! to negative units +! PR 33055 Runtime error in INQUIRE unit existance with -fdefault-integer-8 +! Test case update by Jerry DeLisle <jvdelisle@gcc.gnu.org> ! ! Bugs submitted by Walt Brainerd integer i @@ -16,6 +18,7 @@ open (unit=-11, file="xxx", iostat=i) if (i <= 0) call abort + i = 0 inquire (unit=-42, exist=l) if (l) call abort |