1 files changed, 20 insertions, 0 deletions
diff --git a/misc/pascal/tests/src/801-cgihello.pas b/misc/pascal/tests/src/801-cgihello.pas
new file mode 100644
index 000000000..54170e34e
--- /dev/null
+++ b/misc/pascal/tests/src/801-cgihello.pas
@@ -0,0 +1,20 @@
+program hello(output);
+
+    procedure WriteResponseHeader;
+    begin
+        writeln('content-type: text/html');
+        writeln
+    end;
+
+begin
+    WriteResponseHeader;
+    writeln('<HTML>');
+    writeln('<HEAD>');
+    writeln('<TITLE>IriePascal Hello World Program</TITLE>');
+    writeln('</HEAD>');
+    writeln('<BODY>');
+    writeln('<BIG> Hello world!!! </BIG>');
+    writeln('</BODY>');
+    writeln('</HTML>')
+end.
+