From d9dc9f2ae5f196c15a7d35cddabc805c40ff86ce Mon Sep 17 00:00:00 2001
From: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com>
Date: Wed, 31 Mar 2021 16:13:58 +0200
Subject: Phase out Haskell fpm (#420)

- remove bootstrap directory from repository
- remove stack-build from CI workflow
- move Fortran fpm to project root
- adjust install script and bootstrap instructions
---
 app/main.f90 | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 app/main.f90

(limited to 'app/main.f90')

diff --git a/app/main.f90 b/app/main.f90
new file mode 100644
index 0000000..7476df6
--- /dev/null
+++ b/app/main.f90
@@ -0,0 +1,37 @@
+program main
+use fpm_command_line, only: &
+        fpm_cmd_settings, &
+        fpm_new_settings, &
+        fpm_build_settings, &
+        fpm_run_settings, &
+        fpm_test_settings, &
+        fpm_install_settings, &
+        fpm_update_settings, &
+        get_command_line_settings
+use fpm, only: cmd_build, cmd_run
+use fpm_cmd_install, only: cmd_install
+use fpm_cmd_new, only: cmd_new
+use fpm_cmd_update, only : cmd_update
+
+implicit none
+
+class(fpm_cmd_settings), allocatable :: cmd_settings
+
+call get_command_line_settings(cmd_settings)
+
+select type(settings=>cmd_settings)
+type is (fpm_new_settings)
+    call cmd_new(settings)
+type is (fpm_build_settings)
+    call cmd_build(settings)
+type is (fpm_run_settings)
+    call cmd_run(settings,test=.false.)
+type is (fpm_test_settings)
+    call cmd_run(settings,test=.true.)
+type is (fpm_install_settings)
+    call cmd_install(settings)
+type is (fpm_update_settings)
+    call cmd_update(settings)
+end select
+
+end program main
-- 
cgit v1.2.3