robust monolithic evaluation

Author: perazz

src/fpm/manifest/library.f90

@@ -83,7 +83,7 @@ elemental logical function monolithic(self)
         !> Instance of the library configuration
         class(library_config_t), intent(in) :: self
 
-        monolithic = self%lib_type == "monolithic"
+        monolithic = .not.(static(self) .or. shared(self))
     end function monolithic
 
 
@@ -121,6 +121,7 @@ subroutine new_library(self, table, error)
             call fatal_error(error,"Error while reading value for 'source-form' in fpm.toml, expecting logical")
             return
         end if
+        
         select case(self%lib_type)
         case("shared","static","monolithic")
             ! OK