Support accessing float DATA array values.

This closes #111.

Author: dmsc

src/syntax/float.syn

@@ -128,6 +128,7 @@ INPUT_VAR:
 # Arrays
 ARRAY_FLOAT_ADDR:
         emit { TOK_VAR_LOAD, VT_ARRAY_FLOAT } E_VAR_SEARCH "%" emit TOK_PUSH PAR_EXPR emit { TOK_MUL6, TOK_ADD }
+        emit { TOK_NUM, VT_ARRAY_FLOAT } E_LABEL "%" emit TOK_PUSH PAR_EXPR emit { TOK_MUL6, TOK_ADD }
 
 # This is added at start of current table (<)
 DIM_VAR_TYPE:<

testsuite/tests/floatadr.bas

@@ -16,11 +16,17 @@ A%(2) = 0.03125
 @SUM &A%, 3
 ? SUM%
 
+' Test address of data arrays
 DATA B%() = -0.125, 0.0625, 0.03125
 @SUM &B%, 3
 ? SUM%
 
-X%=1234.5
 
+' Test address of variables
+X%=1234.5
 @SUM &X%, 1
 ? SUM%
+
+' Test access to individual data array values
+X%=B%(1)
+? X%

testsuite/tests/floatadr.chk

@@ -4,3 +4,4 @@ Output:
 0.21875
 -0.03125
 1234.5
+0.0625