gcc/testsuite/gfortran.dg/negative_unit2.f90

   1 ! { dg-do run }
   2 ! Test case submitted by Dominique d'Humieres
   3 program negative_unit2
   4   integer :: i, j
   5   ! i should be <= NEWUNIT_FIRST in libgfortran/io/unit.c
   6   i = -100
   7   write(unit=i,fmt=*, iostat=j) 10
   8   if (j == 0) call abort
   9 end program negative_unit2