--* From SMWATT%WATSON.vnet.ibm.com@yktvmv.watson.ibm.com  Tue Oct 18 19:09:42 1994
--* Received: from yktvmv-ob.watson.ibm.com by asharp.watson.ibm.com (AIX 3.2/UCB 5.64/930311)
--*           id AA21218; Tue, 18 Oct 1994 19:09:42 -0400
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 8215; Tue, 18 Oct 94 19:09:47 EDT
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.SMWATT.NOTE.VAGENT2.2513.Oct.18.19:09:47.-0400>
--*           for asbugs@watson; Tue, 18 Oct 94 19:09:47 -0400
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 2509; Tue, 18 Oct 1994 19:09:47 EDT
--* Received: from leonardo.watson.ibm.com by yktvmv.watson.ibm.com
--*    (IBM VM SMTP V2R3) with TCP; Tue, 18 Oct 94 19:09:46 EDT
--* Received: by leonardo.watson.ibm.com (AIX 3.2/UCB 5.64/920123)
--*           id AA19587; Tue, 18 Oct 1994 18:59:27 -0400
--* Date: Tue, 18 Oct 1994 18:59:27 -0400
--* From: smwatt@leonardo.watson.ibm.com (Stephen Watt)
--* X-External-Networks: yes
--* Message-Id: <9410182259.AA19587@leonardo.watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: [2] Fluids bomb Foam interpreter

--@ Fixed  by:  PI   Tue Dec 20 16:45:37 EST 1994 
--@ Tested by:  none 
--@ Summary:    Fixed fluid handling in the foam interpreter 


-- Command line: asharp -Ginterp fluid1.as
-- Version: 0.37.0
-- Original bug file name: fluid1.as

#include "aslib"

   fluid n: Integer := 2;

   f(): () == print << "The value of n is " << n << newline;
   g(): () == { fluid n := 3; f() }

   f();
   g();