summaryrefslogtreecommitdiff
path: root/PyGan/data/Exemple_jdd_proc/FloatList.c2m
diff options
context:
space:
mode:
Diffstat (limited to 'PyGan/data/Exemple_jdd_proc/FloatList.c2m')
-rw-r--r--PyGan/data/Exemple_jdd_proc/FloatList.c2m14
1 files changed, 14 insertions, 0 deletions
diff --git a/PyGan/data/Exemple_jdd_proc/FloatList.c2m b/PyGan/data/Exemple_jdd_proc/FloatList.c2m
new file mode 100644
index 0000000..35eaf2f
--- /dev/null
+++ b/PyGan/data/Exemple_jdd_proc/FloatList.c2m
@@ -0,0 +1,14 @@
+*----
+* TEST PROCEDURE
+* Creating a LCM LINKED_LIST with 1 float
+*----
+PARAMETER MY_LIST ::
+ ::: LINKED_LIST MY_LIST ; ;
+MODULE UTL: DELETE: END: ;
+
+*--- Defining a list of 1 float ---*
+MY_LIST := UTL: ::
+ CREA 'Float_List' 1 = 3.141592654D0 ;
+
+END: ;
+QUIT "LIST" .