fix empty args

perazz · May 11, 2023 · 8f1a8f3 · 8f1a8f3
1 parent d9de989
commit 8f1a8f3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/test/cli_test/cli_test.f90 b/test/cli_test/cli_test.f90
@@ -251,11 +251,11 @@ subroutine parse()
 type is (fpm_run_settings)
     act_profile=settings%profile
     act_name=settings%name
-    act_args=settings%args
+    if (allocated(settings%args)) act_args=settings%args
 type is (fpm_test_settings)
     act_profile=settings%profile
     act_name=settings%name
-    act_args=settings%args
+    if (allocated(settings%args)) act_args=settings%args
 type is (fpm_clean_settings)
     act_c_s=settings%clean_skip
     act_c_a=settings%clean_call