loglan96/loglan93/test.log

   1 PROGRAM TEST;
   2
   3 (* This is only a test program *)
   4
   5 UNIT VIRTUAL A: SHARED C, SHARED D : K : Z ,E CLASS;
   6
   7   UNIT K: D PROCEDURE(INPUT H : CHAR; INOUT P : PROC ) ;
   8   END K;
   9
  10   UNIT L : D FUNCTION( A,B: INTEGER; OUTPUT P : RESULTAT ):INTEGER;
  11   END L;
  12
  13   UNIT WEEK : ENUM(Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday);
  14   END WEEK;
  15
  16 END;
  17
  18 CONST A=A QUA B . D + C / A * ( B AND (K+C = KAN)) OR (123 + 234.34 + 256E-5 < 1);
  19 VAR H,K,L,LIOP : INET,
  20     A,C,E : INTEGER,
  21     BRK,RCS : OBJ;
  22
  23 SIGNAL SIG(A:K; FUNCTION B : RESULTAT;);
  24
  25 HANDLERS
  26   WHEN I : A  := B;
  27   WHEN N : K QUA C QUA G. C := F;
  28   OTHERWISE : Q := COPY(A);
  29 END HANDLERS;
  30 BEGIN
  31   A := R QUA C .A QUA B .D;
  32   A := "ABCD";
  33   STOP;
  34   WHILE A
  35   DO
  36   IF B <> 6 THEN
  37      IF K =/= 5 THEN
  38        ARRAY A DIM (1:6);
  39      ELSE
  40        A := NEW ARRAY(1,6);
  41      FI
  42   FI
  43   OD
  44 END;