16 lines
263 B
Plaintext
16 lines
263 B
Plaintext
PROC P ()
|
|
REAL32 r:
|
|
REAL64 d:
|
|
SEQ
|
|
ASSERT (TRUE)
|
|
-- check we can override an intrinsic
|
|
PROC ASSERT (VAL BOOL b)
|
|
SKIP
|
|
:
|
|
ASSERT (FALSE)
|
|
|
|
r := SQRT (3.141)
|
|
r := 41.5 + SQRT (SQRT (SQRT (4.0)))
|
|
d := DSQRT (3.141 (REAL64))
|
|
:
|