Check allocation status before allocating

Author: minhqdao

src/fpm_settings.f90

@@ -113,7 +113,7 @@ subroutine get_global_settings(global_settings, error)
   subroutine use_default_registry_settings(global_settings)
     type(fpm_global_settings), intent(inout) :: global_settings
 
-    allocate (global_settings%registry_settings)
+    if (.not. allocated(global_settings%registry_settings)) allocate (global_settings%registry_settings)
     global_settings%registry_settings%url = official_registry_base_url
     global_settings%registry_settings%cache_path = join_path(global_settings%path_to_config_folder_or_empty(), &
     & 'dependencies')