initialize allocatable CHARACTER variables before they are used in a comparison

Author: urbanjost

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