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

module Module_17 =
def
    pub int ce_port;
    pub string ce_host;

    pub proc ce_connect = void:
           myconnect (ce_host, ce_port);

    proc myconnect = (string host, int port) void:
       skip;

    skip
fed