From 6b4f1c7dcac8bba100f0a27f7057b11eb0a21a17 Mon Sep 17 00:00:00 2001 From: vsande Date: Wed, 19 Aug 2015 15:11:10 +0200 Subject: [PATCH] Some minor changes related with the following issue: https://github.com/szaghi/FLAP/issues/48 --- src/Data_Type_Command_Line_Interface.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Data_Type_Command_Line_Interface.F90 b/src/Data_Type_Command_Line_Interface.F90 index 1a065f0d..6129bb05 100644 --- a/src/Data_Type_Command_Line_Interface.F90 +++ b/src/Data_Type_Command_Line_Interface.F90 @@ -2315,6 +2315,7 @@ subroutine add(cli, pref, group, group_index, switch, switch_ab, help, required, cla%hidden = .false. ; if (present(hidden )) cla%hidden = hidden cla%act = action_store ; if (present(act )) cla%act = trim(adjustl(Upper_Case(act))) if (present(def )) cla%def = def + if (present(def )) cla%val = def if (present(nargs )) cla%nargs = nargs if (present(choices )) cla%choices = choices cla%m_exclude = '' ; if (present(exclude )) cla%m_exclude = exclude