From 8948f207ea9c7cef4e7808751a499310d1407148 Mon Sep 17 00:00:00 2001
From: Yashas <yashas_2010@yahoo.com>
Date: Sun, 24 Jun 2018 10:20:30 +0530
Subject: [PATCH] disable 239 for native functions

---
 source/compiler/sc3.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/compiler/sc3.c b/source/compiler/sc3.c
index c632b40c..c61a04cd 100644
--- a/source/compiler/sc3.c
+++ b/source/compiler/sc3.c
@@ -2215,7 +2215,7 @@ static int nesting=0;
             if (arg[argidx].numdim!=1) {
               error(48);        /* array dimensions must match */
             } else {
-              if (lval.sym==NULL && (arg[argidx].usage & uCONST)==0)
+              if (lval.sym==NULL && (arg[argidx].usage & uCONST)==0 && (sym->usage & uNATIVE)==0)
                     error(239);
               if (arg[argidx].dim[0]!=0) {
                 assert(arg[argidx].dim[0]>0);