M2compiler-V1/tests/p_realfn.LST

Listing:

    1  MODULE PRealFn;
    2  VAR r : REAL; ExitCode : INTEGER;
    3  PROCEDURE Half(x : REAL) : REAL;
    4  BEGIN
    5    RETURN x / 2.0
    6  END Half;
    7  PROCEDURE AddR(a, b : REAL) : REAL;
    8  BEGIN
    9    RETURN a + b
   10  END AddR;
   11  BEGIN
   12    r := AddR(1.5, Half(7));
   13    IF r = 5.0 THEN ExitCode := 5 ELSE ExitCode := 6 END
   14  END PRealFn.

    0 errors