date and time created 90/06/25 15:33:49 by bostic

SCCS-vsn: old/dbx/tests/mod/const.mod 5.1

diff --git a/usr/src/old/dbx/tests/mod/const.mod b/usr/src/old/dbx/tests/mod/const.mod
new file mode 100644 (file)
index 0000000..2294b13
--- /dev/null
+++ b/usr/src/old/dbx/tests/mod/const.mod
@@ -0,0 +1,21 @@
+module main;
+const
+    PI = 3.14159;
+    N = 10;
+    MESSAGE = "this is a test";
+    CH = 'x';
+    S = {1, 3, 5};
+    B = true;
+type
+    Color = (RED, BLUE, GREEN);
+procedure p ();
+const
+    R = RED;
+type
+    T = integer;
+var i : integer;
+begin
+end p;
+
+begin
+end main.