Initial revision

diff --git a/test/prime.cupl b/test/prime.cupl
new file mode 100644 (file)
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