reduce-historical/psl-1983/3-1/tests/mini-fluid-global.red

% MINI-FLUID-GLOBAL.RED
% Stubs

procedure fluid u;
 list ('fluid, u);

procedure FluidP  U;
 NIL;

procedure global u;
 list ('global, u);

procedure GlobalP u;
 NIL;

procedure Unfluid U;
 list('Unfluid,U);

End;