CocoR/test1.mod

MODULE test1;

IMPORT STextIO;

    MODULE interne;

    IMPORT Storage;
    IMPORT SYSTEM;
    EXPORT tt;

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

    PROCEDURE tt;

    BEGIN
        Storage.ALLOCATE(nextErr, SYSTEM.TSIZE(ErrDesc));
    END tt;

    BEGIN
        
    END interne;

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