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) call abort
8if (get_unit_number("foo1.dat") .ne. 11) call abort
9if (get_unit_number("foo2.dat") .ne. 12) call abort
10if (get_unit_number("foo3.dat") .ne. 13) call abort
11
12close(unit=12, status="delete")
13if (get_unit_number("foo2.dat") .ne. 12) call abort()
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