1! { dg-do run } 2! 3! PR libfortran/20660 and other bugs (not filed in bugzilla) relating 4! to negative units 5! PR 33055 Runtime error in INQUIRE unit existance with -fdefault-integer-8 6! Test case update by Jerry DeLisle <jvdelisle@gcc.gnu.org> 7! 8! Bugs submitted by Walt Brainerd 9 integer i,j 10 logical l 11 12 i = -1 13! gfortran created a 'fort.-1' file and wrote "Hello" in it 14 write (unit=i, fmt=*, iostat=j) "Hello" 15 if (j <= 0) call abort 16 17 i = -11 18 open (unit=i, file="xxx", iostat=j) 19 if (j <= 0) call abort 20 21 i = -42 22 inquire (unit=i, exist=l) 23 if (l) call abort 24 end 25