From 4683307c03fd8a99c0cb6ae7400db498f10a9dfe Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Mon, 15 Mar 2021 15:15:49 +0100
Subject: Fortran solution for week 104, part 1

---
 challenge-104/abigail/README.md        |  1 +
 challenge-104/abigail/fortran/ch-1.f90 | 14 ++++++++++++++
 2 files changed, 15 insertions(+)
 create mode 100644 challenge-104/abigail/fortran/ch-1.f90

diff --git a/challenge-104/abigail/README.md b/challenge-104/abigail/README.md
index 17bcb41f68..bb367b0619 100644
--- a/challenge-104/abigail/README.md
+++ b/challenge-104/abigail/README.md
@@ -26,6 +26,7 @@ even handle a single if statement. A single print statement is enough.
 * [Befunge-93](befunge-93/ch-1.bf93)
 * [bc](bc/ch-1.bc)
 * [C](c/ch-1.c)
+* [Fortran](fortran/ch-1.f90)
 * [Lua](lua/ch-1.lua)
 * [Node.js](node/ch-1.js)
 * [Perl](perl/ch-1.pl)
diff --git a/challenge-104/abigail/fortran/ch-1.f90 b/challenge-104/abigail/fortran/ch-1.f90
new file mode 100644
index 0000000000..07ddd3f569
--- /dev/null
+++ b/challenge-104/abigail/fortran/ch-1.f90
@@ -0,0 +1,14 @@
+!
+! See ../README.md
+!
+
+!
+! Run as: gfortran -o ch-1.o ch-1.f90; ./ch-1.o
+!
+
+program fucs
+    implicit none
+    write(*,fmt="(A)", advance='no')  "0 1 1 2 1 3 2 3 1 4 3 5 2 5 3 4 1 5 "
+    write(*,fmt="(A)", advance='no')  "4 7 3 8 5 7 2 7 5 8 3 7 4 5 1 6 5 9 "
+    write(*,fmt="(A)", advance='yes') "4 11 7 10 3 11 8 13 5 12 7 9 2 9"
+end
-- 
cgit