toml set_character interface: work with allocatable and non-allocat…

…able input strings
perazz · Mar 26, 2024 · d5f9b46 · d5f9b46
1 parent 64093b1
commit d5f9b46
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/fpm/toml.f90 b/src/fpm/toml.f90
@@ -454,7 +454,7 @@ subroutine set_character(table, key, var, error, whereAt)
         character(len=*), intent(in) :: key
 
         !> The character variable
-        character(len=:), allocatable, intent(in) :: var
+        character(len=*), optional, intent(in) :: var
 
         !> Error handling
         type(error_t), allocatable, intent(out) :: error
@@ -471,7 +471,7 @@ subroutine set_character(table, key, var, error, whereAt)
             return
         end if
 
-        if (allocated(var)) then
+        if (present(var)) then
             call set_value(table, key, var, ierr)
             if (ierr/=toml_stat%success) then
                 call fatal_error(error,'cannot set character key <'//key//'> in TOML table')