summaryrefslogtreecommitdiff
path: root/Ganlib/data
diff options
context:
space:
mode:
Diffstat (limited to 'Ganlib/data')
-rw-r--r--Ganlib/data/testgan2.x2m9
1 files changed, 8 insertions, 1 deletions
diff --git a/Ganlib/data/testgan2.x2m b/Ganlib/data/testgan2.x2m
index 4de50fa..c9ef50f 100644
--- a/Ganlib/data/testgan2.x2m
+++ b/Ganlib/data/testgan2.x2m
@@ -3,7 +3,8 @@
*----
LINKED_LIST TOTO FLUX MACRO GROUP ;
SEQ_ASCII Macrolib FLUX2 ;
-MODULE DELETE: GREP: END: ;
+XSM_FILE FLUX3 ;
+MODULE DELETE: GREP: UTL: END: ;
PROCEDURE TESTproc assertS ;
REAL value ;
*
@@ -13,10 +14,16 @@ GREP: GROUP :: GETVAL NTOT0 2 >>value<< ;
ECHO "value=" value ;
*
FLUX2 := TESTproc MACRO :: 1.703945 ;
+FLUX3 := FLUX2 ;
FLUX := FLUX2 :: EDIT 99 ;
FLUX2 := DELETE: FLUX2 ;
assertS FLUX :: 'K-EFFECTIVE' 1 1.703945 ;
*
+UTL: FLUX3 :: DIR ;
+FLUX3 := UTL: FLUX3 :: DEL SIGNATURE ;
+FLUX3 := UTL: FLUX3 :: DEL DOUBLE-INFO ;
+UTL: FLUX3 :: DIR ;
+*
ECHO "test TEST completed" ;
END: ;
QUIT "XREF" .