Head

GCC Code Coverage Report

Directory:	./		Exec	Total	Coverage
File:	misc/new_unit_m.F90	Lines:	0	7	0.0 %
Date:	2023-06-30 12:51:15	Branches:	0	4	0.0 %


module new_unit_m

  implicit none

contains

  subroutine new_unit(unit)

    integer, intent(out):: unit

    ! Variables local to the procedure:
    logical opened, exist

    !------------------------------------------------------

    unit = 0
    do
       inquire(unit=unit, opened=opened, exist=exist)
       if (exist .and. .not. opened) exit
       unit = unit + 1
    end do

  end subroutine new_unit

end module new_unit_m


Generated by: GCOVR (Version 4.2)

Line	Branch	Exec	Source
1			module new_unit_m
2
3			implicit none
4
5			contains
6
7			subroutine new_unit(unit)
8
9			integer, intent(out):: unit
10
11			! Variables local to the procedure:
12			logical opened, exist
13
14			!------------------------------------------------------
15
16			unit = 0
17			do
18			inquire(unit=unit, opened=opened, exist=exist)
19			if (exist .and. .not. opened) exit
20			unit = unit + 1
21			end do
22
23			end subroutine new_unit
24
25			end module new_unit_m