Fixes #756: add judgement of macros allocation status (#762)

fortran-lang · Sep 29, 2022 · 4fb72da · 4fb72da
1 parent 1a8a96b
commit 4fb72da
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fpm.f90 b/src/fpm.f90
@@ -115,7 +115,7 @@ subroutine build_model(model, settings, package, error)
 
             if (allocated(dependency%preprocess)) then
                 do j = 1, size(dependency%preprocess)
-                    if (package%preprocess(j)%name == "cpp") then
+                    if (package%preprocess(j)%name == "cpp" .and. allocated(dependency%preprocess(j)%macros)) then
                         model%packages(i)%macros = dependency%preprocess(j)%macros
                     end if
                 end do