Fixed a bug and treat unknown options

vmagnin · Nov 1, 2021 · 24ba8ca · 24ba8ca
1 parent a9b582b
commit 24ba8ca
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/taptempo.f90 b/src/taptempo.f90
@@ -55,7 +55,7 @@ subroutine manage_command_line
  if (nb == 0) return
 
  i = 0
- do while (i <= nb)
+ do while (i < nb)
  i = i + 1
  call get_command_argument(i, value=args)
 
@@ -86,6 +86,8 @@ subroutine manage_command_line
  case("-v", "--version")
  call print_version()
  stop
+ case default
+ print '(2A)', "Unknown option ignored: ", trim(args)
  end select
  end do
  end subroutine manage_command_line