aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn S. Urban <urbanjost@comcast.net>2021-07-13 14:39:08 -0400
committerJohn S. Urban <urbanjost@comcast.net>2021-07-13 14:39:08 -0400
commit8b958a8851c0f5a02a14671cdf1ca4389bbc95ff (patch)
tree9e7d851d017ddb949aaf570bbf1627adcdd4a5c5 /src
parent5617e65751193afb3c88fbc6cb8a32822ff52ffa (diff)
downloadfpm-8b958a8851c0f5a02a14671cdf1ca4389bbc95ff.tar.gz
fpm-8b958a8851c0f5a02a14671cdf1ca4389bbc95ff.zip
initialize allocatable CHARACTER variables before they are used in a comparison
Diffstat (limited to 'src')
-rw-r--r--src/fpm_sources.f903
1 files changed, 3 insertions, 0 deletions
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
@@ -201,6 +201,9 @@ subroutine get_executable_source_dirs(exe_dirs,executables)
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
n = n + 1