cosmetics
This commit is contained in:
16
test/fc_git_info/src/example.F90
Normal file
16
test/fc_git_info/src/example.F90
Normal file
@ -0,0 +1,16 @@
|
||||
program example
|
||||
|
||||
implicit none
|
||||
logical :: test_ok
|
||||
|
||||
! file generated at build time
|
||||
#include "git_info.h"
|
||||
|
||||
test_ok = len(GIT_COMMIT_HASH) > 0 .and. &
|
||||
len(GIT_COMMIT_AUTHOR) > 0 .and. &
|
||||
len(GIT_COMMIT_DATE) > 0 .and. &
|
||||
len(GIT_BRANCH) > 0
|
||||
|
||||
if (test_ok) print *, 'Test OK!'
|
||||
|
||||
end program
|
Reference in New Issue
Block a user