Commit 11b1dc04 authored by ulrich_y's avatar ulrich_y

Parse arguments in test

parent 25a79fa5
...@@ -13,10 +13,31 @@ PROGRAM TEST ...@@ -13,10 +13,31 @@ PROGRAM TEST
real(kind=prec) :: tol = 8.0e-7 real(kind=prec) :: tol = 8.0e-7
logical :: tests_successful = .true. logical :: tests_successful = .true.
integer :: i
character(len=32) :: arg
i = 0
do
call get_command_argument(i, arg)
if (len_trim(arg) == 0) exit
! parse verbosity
select case(trim(arg))
case('-verb')
#ifdef DEBUG #ifdef DEBUG
call parse_cmd_args() i=i+1
call get_command_argument(i,arg)
read(arg,*) verb ! str to int
#else
call errprint("-verb not available, compile with --debug")
#endif #endif
case default
call errprint("Unknown argument "//trim(arg))
end select
i = i+1
end do
tol = zero * 1.e5_prec tol = zero * 1.e5_prec
call do_MPL_tests() 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