56 lines
989 B
Plaintext
56 lines
989 B
Plaintext
-- This file tests abbreviation checking
|
|
|
|
PROC m()
|
|
INT x:
|
|
%%
|
|
:
|
|
|
|
%PASS Normal abbreviation, used properly
|
|
INT z IS x:
|
|
z := 3
|
|
%FAIL Normal abbreviation, used improperly
|
|
INT z IS x:
|
|
x := 3
|
|
%FAIL Val abbreviation, used improperly
|
|
VAL INT z IS x:
|
|
z := 3
|
|
%FAIL Val abbreviation, used improperly 2
|
|
VAL INT z IS x:
|
|
x := 3
|
|
%PASS Val abbreviation, used properly
|
|
VAL INT z IS x:
|
|
INT y:
|
|
y := z
|
|
%PASS Formal normal abbreviation, used properly
|
|
PROC p(INT y)
|
|
y := 2
|
|
:
|
|
p(x)
|
|
%PASS Formal val abbreviation, used properly
|
|
PROC p(VAL INT y)
|
|
INT z:
|
|
z := y
|
|
:
|
|
p(x)
|
|
%FAIL Formal val abbreviation, used improperly
|
|
PROC p(VAL INT y)
|
|
y := 3
|
|
:
|
|
p(x)
|
|
%FAIL Formal normal abbreviation, overlaps (bad -- KRoC disallows)
|
|
PROC p(INT y)
|
|
y := x
|
|
:
|
|
p(x)
|
|
%PASS Formal val abbreviation, overlaps (KRoC disallows, I'm unsure)
|
|
PROC p(VAL INT y)
|
|
x := y
|
|
:
|
|
p(x)
|
|
%PASS Formal normal abbreviation, overlaps, no call
|
|
PROC p(INT y)
|
|
y := x
|
|
:
|
|
x := 3
|
|
%
|