Skip to content

Commit 11d108b

Browse files
authored
Merge pull request #492 from boriel/bugfix/read_data
Add Runtime READ test case
2 parents 4829501 + b27f476 commit 11d108b

2 files changed

Lines changed: 48 additions & 0 deletions

File tree

Lines changed: 48 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,48 @@
1+
REM Type coercion (promotion) in read DATA
2+
3+
#include "lib/tst_framework.bas"
4+
INIT("Testing READ, DATA coercing")
5+
6+
7+
DIM i8 as Byte
8+
DIM u8 as UByte
9+
DIM i16 as Integer
10+
DIM u16 as UInteger
11+
DIM i32 as Long
12+
DIM u32 as ULong
13+
DIM f16 as Fixed
14+
DIM flt as Float
15+
16+
RESTORE
17+
READ i8
18+
PRINT i8
19+
RESTORE
20+
READ u8
21+
PRINT u8
22+
23+
RESTORE
24+
READ i16
25+
PRINT i16
26+
RESTORE
27+
READ u16
28+
PRINT u16
29+
30+
RESTORE
31+
READ i32
32+
PRINT i32
33+
RESTORE
34+
READ u32
35+
PRINT u32
36+
37+
RESTORE
38+
READ f16
39+
PRINT f16
40+
41+
RESTORE
42+
READ flt
43+
PRINT flt
44+
45+
DATA 700
46+
47+
REPORT_OK
48+
6.75 KB
Binary file not shown.

0 commit comments

Comments
 (0)