Literals testcase

This commit is contained in:
Adam Sampson 2007-04-25 11:53:15 +00:00
parent a1f045260b
commit 402371c8aa

View File

@ -0,0 +1,8 @@
PROC P ()
VAL INT a IS 12345678:
VAL INT b IS #12345678:
VAL REAL32 c IS 1234.5678:
VAL REAL32 d IS 1234.567E+8:
VAL BYTE e IS 'x':
SKIP
: