diff options
| author | John S. Urban <urbanjost@comcast.net> | 2021-07-13 14:39:08 -0400 |
|---|---|---|
| committer | John S. Urban <urbanjost@comcast.net> | 2021-07-13 14:39:08 -0400 |
| commit | 8b958a8851c0f5a02a14671cdf1ca4389bbc95ff (patch) | |
| tree | 9e7d851d017ddb949aaf570bbf1627adcdd4a5c5 /src/fpm_sources.f90 | |
| parent | 5617e65751193afb3c88fbc6cb8a32822ff52ffa (diff) | |
| download | fpm-8b958a8851c0f5a02a14671cdf1ca4389bbc95ff.tar.gz fpm-8b958a8851c0f5a02a14671cdf1ca4389bbc95ff.zip | |
initialize allocatable CHARACTER variables before they are used in a comparison
Diffstat (limited to 'src/fpm_sources.f90')
| -rw-r--r-- | src/fpm_sources.f90 | 3 |
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 |