Commit 11b1dc04 authored by ulrich_y's avatar ulrich_y

Parse arguments in test

parent 25a79fa5
......@@ -13,10 +13,31 @@ PROGRAM TEST
real(kind=prec) :: tol = 8.0e-7
logical :: tests_successful = .true.
integer :: i
character(len=32) :: arg
i = 0
call get_command_argument(i, arg)
if (len_trim(arg) == 0) exit
! parse verbosity
select case(trim(arg))
#ifdef DEBUG
call parse_cmd_args()
call get_command_argument(i,arg)
read(arg,*) verb ! str to int
call errprint("-verb not available, compile with --debug")
case default
call errprint("Unknown argument "//trim(arg))
end select
i = i+1
end do
tol = zero * 1.e5_prec
call do_MPL_tests()
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment