From 5c3b42be0940dcc477fea50f3eaaaecc1f95058b Mon Sep 17 00:00:00 2001
From: David Brown <dave.github@brownsmeet.com>
Date: Fri, 2 Dec 2016 13:02:35 +0000
Subject: [PATCH] Fix incorrect dynarray length type merge with subsequent
 longint in IdentList.

---
 src/compiler/OPC.Mod | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/OPC.Mod b/src/compiler/OPC.Mod
index f2e662c9..376ba412 100644
--- a/src/compiler/OPC.Mod
+++ b/src/compiler/OPC.Mod
@@ -655,7 +655,7 @@ MODULE OPC;  (* copyright (c) J. Templ 12.7.95 / 3.7.96 *)
         DeclareObj(obj, vis = 3);
         IF obj^.typ^.comp = OPT.DynArr THEN (* declare len parameter(s) *)
           EndStat; BegStat;
-          base := OPT.linttyp;
+          base := OPT.adrtyp;
           OPM.WriteString("ADDRESS "); LenList(obj, FALSE, TRUE)
         ELSIF (obj^.mode = OPT.VarPar) & (obj^.typ^.comp = OPT.Record) THEN
           EndStat; BegStat;