M2compiler-V3/compiler/tests/g_gstkp.mod

MODULE GStkProg;
IMPORT GIntStk;
VAR s : GIntStk.Stk; ExitCode : INTEGER;
BEGIN s.Put(9); ExitCode := s.Capacity() + 38 END GStkProg.