From 8b958a8851c0f5a02a14671cdf1ca4389bbc95ff Mon Sep 17 00:00:00 2001 From: "John S. Urban" Date: Tue, 13 Jul 2021 14:39:08 -0400 Subject: initialize allocatable CHARACTER variables before they are used in a comparison --- src/fpm_sources.f90 | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/fpm_sources.f90 b/src/fpm_sources.f90 index c781535..f129878 100644 --- a/src/fpm_sources.f90 +++ b/src/fpm_sources.f90 @@ -200,6 +200,9 @@ subroutine get_executable_source_dirs(exe_dirs,executables) integer :: i, n n = 0 + do i=1,size(executables) + dirs_temp(i)%s=' ' + enddo do i=1,size(executables) if (.not.(executables(i)%source_dir .in. dirs_temp)) then -- cgit v1.2.3