gcc/testsuite/algol68/compile/modules/module3.a68

module Module_3 =
def pub proc foo = (int i, string s) void: skip;
    pub mode Jorl = struct (int i, string s);
    pub mode Jurl = union (int, string, real);
    skip
fed