From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001
From: stainer_t <thomas.stainer@oecd-nea.org>
Date: Mon, 8 Sep 2025 13:48:49 +0200
Subject: Initial commit from Polytechnique Montreal

---
 Ganlib/data/testgan2_proc/TESTproc.c2m | 37 ++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 Ganlib/data/testgan2_proc/TESTproc.c2m

(limited to 'Ganlib/data/testgan2_proc/TESTproc.c2m')

diff --git a/Ganlib/data/testgan2_proc/TESTproc.c2m b/Ganlib/data/testgan2_proc/TESTproc.c2m
new file mode 100644
index 0000000..ec89f58
--- /dev/null
+++ b/Ganlib/data/testgan2_proc/TESTproc.c2m
@@ -0,0 +1,37 @@
+* Library procedure
+PARAMETER  FLUX2 MACRO ::
+  EDIT 1
+    ::: SEQ_ASCII FLUX2 ;
+    ::: LINKED_LIST MACRO ;
+  ;
+REAL KEFF ;
+:: >>KEFF<<
+;
+MODULE UTL: DELETE: ADD: END: ;
+LINKED_LIST FLUX MACRO2 MACRO3 ;
+SEQ_ASCII FLUX3 ;
+PROCEDURE assertS ;
+*
+UTL: MACRO :: DIR ;
+MACRO2 := MACRO ;
+MACRO3 := MACRO ;
+UTL: MACRO2 :: DIR ;
+MACRO3 := ADD: MACRO3 MACRO2 ;
+*
+FLUX := UTL: :: CREA 'K-EFFECTIVE' 1 = 1.703945 ;
+FLUX := UTL: FLUX :: CREA 'DOUBLE-INFO' 5 = 1.1D0 1.2D0 1.3D0 1.4D0 1.5D0 ;
+MACRO3 := MACRO3 FLUX ;
+UTL: MACRO3 :: DIR ;
+FLUX := UTL: FLUX :: CREA 'SIGNATURE' 3 = 'L_FL' 'UX' ' ' ;
+UTL: FLUX :: DIR DUMP ;
+FLUX2 := FLUX ;
+FLUX3 := FLUX ;
+FLUX := UTL: FLUX :: ERAS ; ! erase the contents of object FLUX
+FLUX := FLUX FLUX2 ;
+assertS FLUX :: 'K-EFFECTIVE' 1  1.703945 ;
+FLUX := DELETE: FLUX ;
+ECHO "procedure TESTproc completed" ;
+*
+END: ;
+*
+QUIT "XREF" .
-- 
cgit v1.2.3