Git example: avoid exceeding 132 max line length

Author: scivision

CMakeLists.txt

@@ -7,7 +7,7 @@ endif()
 project(Fortran2018Examples
 LANGUAGES C Fortran
 DESCRIPTION "Example of using modern Fortran syntax"
-VERSION 1.3.1)
+VERSION 1.3.2)
 
 enable_testing()
 

git/CMakeLists.txt

@@ -1,12 +1,19 @@
 find_package(Git)
 
+set(_max_len 80) # arbitrary limit, so as not to exceed maximum 132 character Fortran line length.
+
 set(git_version ${GIT_VERSION_STRING})
+string(SUBSTRING ${git_version} 0 ${_max_len} git_version)
 if(GIT_FOUND)
+
 # git branch --show-current requires Git >= 2.22, June 2019
 execute_process(COMMAND ${GIT_EXECUTABLE} rev-parse --abbrev-ref HEAD
 OUTPUT_VARIABLE git_branch OUTPUT_STRIP_TRAILING_WHITESPACE)
+string(SUBSTRING ${git_branch} 0 ${_max_len} git_branch)
+
 execute_process(COMMAND ${GIT_EXECUTABLE} rev-parse --short HEAD
 OUTPUT_VARIABLE git_rev OUTPUT_STRIP_TRAILING_WHITESPACE)
+string(SUBSTRING ${git_rev} 0 ${_max_len} git_rev)
 
 set(git_porcelain .true.)
 execute_process(COMMAND ${GIT_EXECUTABLE} status --porcelain

git/main.in.f90

@@ -10,7 +10,10 @@ program git_demo
 rev = "@git_rev@"
 porcelain = @git_porcelain@
 
-print *, "MyProgram  git_version:", git_version, " git_branch: ", branch, " git revision: ", rev, ' git_porcelain', porcelain
+print *, "git_version: ", git_version
+print *, "git_branch: ", branch
+print *, "git revision: ", rev
+print *, "git_porcelain ", porcelain
 !! could also use this to set a warning or other logical flag
 
 end program

meson.build

@@ -1,5 +1,5 @@
 project('Fortran2018examples', 'fortran', 'c',
-  version : '1.3.1',
+  version : '1.3.2',
   meson_version: '>= 0.52.0',
   default_options : ['default_library=static', 'buildtype=release', 'warning_level=3'])