gcc/testsuite/gfortran.dg/negative_unit.f

   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