From eafba7a95131c34821c7bb725f1e26552c01271b Mon Sep 17 00:00:00 2001 From: Brad Richardson Date: Mon, 13 Apr 2020 19:16:43 -0500 Subject: Create simplest possible hello_world project --- hello_world/.gitignore | 1 + hello_world/app/main.f90 | 3 +++ hello_world/fpm.toml | 2 ++ test/Spec.hs | 4 ++++ 4 files changed, 10 insertions(+) create mode 100644 hello_world/.gitignore create mode 100644 hello_world/app/main.f90 create mode 100644 hello_world/fpm.toml diff --git a/hello_world/.gitignore b/hello_world/.gitignore new file mode 100644 index 0000000..a007fea --- /dev/null +++ b/hello_world/.gitignore @@ -0,0 +1 @@ +build/* diff --git a/hello_world/app/main.f90 b/hello_world/app/main.f90 new file mode 100644 index 0000000..d16022b --- /dev/null +++ b/hello_world/app/main.f90 @@ -0,0 +1,3 @@ +program hello_world + print *, "Hello, World!" +end program hello_world diff --git a/hello_world/fpm.toml b/hello_world/fpm.toml new file mode 100644 index 0000000..d715850 --- /dev/null +++ b/hello_world/fpm.toml @@ -0,0 +1,2 @@ +name = "hello_world" +compiler = "gfortran" diff --git a/test/Spec.hs b/test/Spec.hs index fe6f99c..2fd2364 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -9,3 +9,7 @@ main = do testExampleProject :: IO () testExampleProject = withCurrentDirectory "example_project" $ callCommand "stack run -- build" + +testHelloWorld :: IO () +testHelloWorld = + withCurrentDirectory "hello_world" $ callCommand "stack run -- run" -- cgit v1.2.3