CocoR/test.mod

MODULE test;

IMPORT STextIO;

    MODULE interne;

    FROM Storage IMPORT ALLOCATE;
    FROM SYSTEM IMPORT TSIZE;
    EXPORT tt;

    TYPE
        Err = POINTER TO ErrDesc;
        ErrDesc = RECORD
        nr, line, col: INTEGER;
        next: Err
        END;
    VAR
      nextErr: Err;

    PROCEDURE tt;

    BEGIN
        ALLOCATE(nextErr, TSIZE(ErrDesc));
    END tt;

    BEGIN
        
    END interne;

BEGIN
    STextIO.WriteString("Bonjour");
END test.