*----
*  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" .