Add a test case for ".declare" pragma

diff --git a/assembler/test/Makefile.am b/assembler/test/Makefile.am
index 0ec1bd6..1c5b13e 100644 (file)
--- a/assembler/test/Makefile.am
+++ b/assembler/test/Makefile.am
@@ -21,6 +21,7 @@ TESTS = \
        halt \
        wait \
        endif \
+       declare \
        immediate
 
 # Tests that are expected to fail because they contain some inccorect code.
@@ -66,6 +67,8 @@ TESTDATA = \
        wait.g4a \
        endif.expected \
        endif.g4a \
+       declare.expected \
+       declare.g4a \
        immediate.g4a \
        immediate.expected
 
@@ -79,4 +82,4 @@ $(TESTS): run-test.sh
 
 CLEANFILES = \
        *.out \
-       ${TESTS}
\ No newline at end of file
+       ${TESTS}

diff --git a/assembler/test/declare.expected b/assembler/test/declare.expected
new file mode 100644 (file)
index 0000000..36ad68f
--- /dev/null
+++ b/assembler/test/declare.expected
@@ -0,0 +1,3 @@
+   { 0x00e00040, 0x20007fbd, 0x008d0f64, 0x3f9d70a4 },
+   { 0x00e00040, 0x200077bd, 0x008d0f64, 0x008d0020 },
+   { 0x00e00040, 0x2f6477bd, 0x008d0000, 0x008d0020 },

diff --git a/assembler/test/declare.g4a b/assembler/test/declare.g4a
new file mode 100644 (file)
index 0000000..726fe86
--- /dev/null
+++ b/assembler/test/declare.g4a
@@ -0,0 +1,4 @@
+.declare X1 Base=g123.4 ElementSize=4 SrcRegion=<8,8,1> DstRegion=<1> Type=F
+add g0<1>:f X1 1.23:f;
+add g0<1>:f X1 g1<8,8,1>:f;
+add X1 g0<8,8,1>:f g1<8,8,1>:f;