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.x2m | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 Ganlib/data/testgan2.x2m

(limited to 'Ganlib/data/testgan2.x2m')

diff --git a/Ganlib/data/testgan2.x2m b/Ganlib/data/testgan2.x2m
new file mode 100644
index 0000000..4de50fa
--- /dev/null
+++ b/Ganlib/data/testgan2.x2m
@@ -0,0 +1,22 @@
+*----
+*  Define STRUCTURES and MODULES used
+*----
+LINKED_LIST TOTO FLUX MACRO GROUP ;
+SEQ_ASCII Macrolib FLUX2 ;
+MODULE DELETE: GREP: END: ;
+PROCEDURE TESTproc assertS ;
+REAL value ;
+*
+MACRO := Macrolib ;
+GROUP := MACRO :: STEP UP GROUP STEP AT 1 ;
+GREP: GROUP :: GETVAL NTOT0 2 >>value<< ;
+ECHO "value=" value ;
+*
+FLUX2 := TESTproc MACRO :: 1.703945 ;
+FLUX := FLUX2 :: EDIT 99 ;
+FLUX2 := DELETE: FLUX2 ;
+assertS FLUX :: 'K-EFFECTIVE' 1  1.703945 ;
+*
+ECHO "test TEST completed" ;
+END: ;
+QUIT "XREF" .
-- 
cgit v1.2.3