From 24ba8cadc62222b29c1bbcffa98130ded49b87a1 Mon Sep 17 00:00:00 2001 From: vmagnin Date: Mon, 1 Nov 2021 10:49:13 +0100 Subject: [PATCH] Fixed a bug and treat unknown options --- src/taptempo.f90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/taptempo.f90 b/src/taptempo.f90 index df6eca3..9d0140d 100644 --- 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