path: root/gcc/testsuite/gm2/base-lang/pass/simpleopaque.def

DEFINITION MODULE simpleopaque ;  (*!m2pim*)

TYPE
   List ;

PROCEDURE init () : List ;

PROCEDURE join (left, right: List) : List ;

PROCEDURE delete (VAR l: List) ;


END simpleopaque.