From 6deada6e8f478f80cf928e402dbf98e37dfb2d13 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sun, 3 Sep 2023 12:42:41 +0200
Subject: [PATCH] Hello world for Fortran.

---
 src/hello/hello.for | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 src/hello/hello.for

diff --git a/src/hello/hello.for b/src/hello/hello.for
new file mode 100644
index 00000000..7749817b
--- /dev/null
+++ b/src/hello/hello.for
@@ -0,0 +1,20 @@
+C     Fortran hello world.
+C
+C Compile the source code with the F40 compiler:
+C *:dec sys:f40
+C *hello=hello.for
+C
+C Then load and link the relcatable file:
+C *:dec sys:loader
+C *hello/g
+C
+C Finally start DECUUO to dump an executable:
+C *45$g
+C Command: dump
+C *:pdump ts hello
+
+C       Unit 5 is the user teletype.
+        WRITE(5,10)
+10      FORMAT(12H HELLO WORLD)
+        STOP
+        END