path: root/gcc/testsuite/gm2/pim/pass/goodprocint.mod

MODULE goodprocint ;

FROM NumberIO IMPORT WriteCard ;
FROM StrIO IMPORT WriteString, WriteLn ;

PROCEDURE func () : INTEGER ;
BEGIN
   RETURN 42
END func ;

BEGIN
   WriteString ('the value is: ') ; WriteCard (func (), 5) ; WriteLn
END goodprocint.