gcc/testsuite/algol68/execute/modules/module12.a68

module Module_12 =
def pub proc foo = (proc(int,string)void cb, int a) void: cb (a, "Foo");
    pub proc bar = (real r) void: skip;
    skip
fed