aboutsummaryrefslogtreecommitdiff
path: root/src/fpm_model.f90
diff options
context:
space:
mode:
authorLKedward <laurence.kedward@bristol.ac.uk>2021-07-28 15:51:59 +0100
committerLKedward <laurence.kedward@bristol.ac.uk>2021-07-28 15:51:59 +0100
commit18e2dab82c0760c501d4634e935b2ed7a50c26a5 (patch)
treeec865ea2200ff27162dcf12b63b79356870c55eb /src/fpm_model.f90
parentbb0c412b4a331166c12f48b90dd0d5397da34e04 (diff)
parent9e26b2d66c72c81ac5a0d752528104293836d206 (diff)
downloadfpm-18e2dab82c0760c501d4634e935b2ed7a50c26a5.tar.gz
fpm-18e2dab82c0760c501d4634e935b2ed7a50c26a5.zip
Merge remote-tracking branch 'upstream/master' into file-listing
Diffstat (limited to 'src/fpm_model.f90')
-rw-r--r--src/fpm_model.f901
1 files changed, 0 insertions, 1 deletions
diff --git a/src/fpm_model.f90 b/src/fpm_model.f90
index 9746e5f..49f598e 100644
--- a/src/fpm_model.f90
+++ b/src/fpm_model.f90
@@ -251,7 +251,6 @@ function info_srcfile_short(source) result(s)
! Prints a shortened version of srcfile_t
type(srcfile_t), intent(in) :: source
character(:), allocatable :: s
- integer :: i
s = "srcfile_t("
s = s // 'file_name="' // source%file_name // '"'
s = s // ", ...)"