select_suite Function

public function select_suite(suites, name) result(pos)

Select a test suite from all available suites

Arguments

Type IntentOptional Attributes Name
type(testsuite_type) :: suites(:)

Available test suites
character(len=*), intent(in) :: name

Name identifying the test suite

Return Value integer

Selected test suite


Source Code

function select_suite(suites, name) result(pos)

   !> Name identifying the test suite
   character(len=*), intent(in) :: name

   !> Available test suites
   type(testsuite_type) :: suites(:)

   !> Selected test suite
   integer :: pos

   integer :: it

   pos = 0
   do it = 1, size(suites)
      if (name == suites(it)%name) then
         pos = it
         exit
      end if
   end do

end function select_suite