1! { dg-do run } 2! PR61933, useing inquire to get available units. 3program makeunit 4integer :: ic, istat, nc 5logical :: exists, is_open 6 7if (get_unit_number("foo0.dat") .ne. 10) STOP 1 8if (get_unit_number("foo1.dat") .ne. 11) STOP 2 9if (get_unit_number("foo2.dat") .ne. 12) STOP 3 10if (get_unit_number("foo3.dat") .ne. 13) STOP 4 11 12close(unit=12, status="delete") 13if (get_unit_number("foo2.dat") .ne. 12) STOP 1 14close(unit=10, status="delete") 15close(unit=11, status="delete") 16close(unit=12, status="delete") 17close(unit=13, status="delete") 18 19contains 20 function get_unit_number(file_name) result(unit_number) 21 character(len=*), intent(in), optional :: file_name 22 integer :: unit_number 23 ! get a new unit number 24 do unit_number=10,100 25 inquire (unit=unit_number,exist=exists,opened=is_open,iostat=istat) 26 if (exists.and.(.not.is_open).and.(istat == 0)) then 27 open(unit=unit_number, file=file_name) 28 return 29 endif 30 end do 31 unit_number = -1 32 end function get_unit_number 33 34end program makeunit 35