From b6b95dcc9d6563666c1358e6800cc9ff064f657c Mon Sep 17 00:00:00 2001
From: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com>
Date: Sun, 20 Jun 2021 12:14:18 +0200
Subject: Allow reading version number from file

---
 example_packages/version_file/VERSION      |  1 +
 example_packages/version_file/app/main.f90 | 13 +++++++++++++
 example_packages/version_file/fpm.toml     |  2 ++
 3 files changed, 16 insertions(+)
 create mode 100644 example_packages/version_file/VERSION
 create mode 100644 example_packages/version_file/app/main.f90
 create mode 100644 example_packages/version_file/fpm.toml

(limited to 'example_packages/version_file')

diff --git a/example_packages/version_file/VERSION b/example_packages/version_file/VERSION
new file mode 100644
index 0000000..ae84a9c
--- /dev/null
+++ b/example_packages/version_file/VERSION
@@ -0,0 +1 @@
+5.42.1
diff --git a/example_packages/version_file/app/main.f90 b/example_packages/version_file/app/main.f90
new file mode 100644
index 0000000..f2ae87b
--- /dev/null
+++ b/example_packages/version_file/app/main.f90
@@ -0,0 +1,13 @@
+program stub
+  implicit none
+  logical :: exist
+  integer :: unit
+  character(len=100) :: line
+  inquire(file="VERSION", exist=exist)
+  if (.not.exist) error stop
+  open(file="VERSION", newunit=unit)
+  read(unit, '(a)') line
+  close(unit)
+
+  print '(*(a))', "File VERSION contains '", trim(line), "'"
+end program stub
diff --git a/example_packages/version_file/fpm.toml b/example_packages/version_file/fpm.toml
new file mode 100644
index 0000000..4dd64fd
--- /dev/null
+++ b/example_packages/version_file/fpm.toml
@@ -0,0 +1,2 @@
+name = "version_file"
+version = "VERSION"
-- 
cgit v1.2.3