From bfc9f5e7f43270bc6e4ab4d5196c13d31136d72d Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@thyrsus.com>
Date: Fri, 11 Nov 1994 22:04:12 +0000
Subject: [PATCH] Initial revision

---
 test/prime.cupl | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 test/prime.cupl

diff --git a/test/prime.cupl b/test/prime.cupl
new file mode 100644
index 0000000..77f61a6
--- /dev/null
+++ b/test/prime.cupl
@@ -0,0 +1,11 @@
+COMMENT READ A NUMBER AND TEST IT FOR PRIMALITY
+	READ M
+	PERFORM TEST FOR N=2
+	PERFORM TEST FOR N=3 TO SQRT(M) BY 2
+TEST	BLOCK
+	IF N*FLOOR(M/N) = M THEN GO TO FOUND
+TEST	END
+	WRITE /M, 'IS A PRIME'
+	STOP
+FOUND	WRITE /M, 'IS NOT A PRIME'
+	STOP
-- 
2.43.0