--- check.c.orig	2014-07-11 00:19:30.000000000 +0900
+++ check.c	2020-02-29 02:04:08.000000000 +0900
@@ -359,7 +359,7 @@
 		else
 			e->type = e->u.lhelm->sym->type;
 		if (! TIS_BASET(e->type) && ! TIS_SPECT(e->type)
-		    && ! e->type == ty_string) {
+		    && ! TIS_ARR(e->type)) {
 			a60_error (e->source, e->lineno,
 				   "INTERNAL: check_expr: illegal type!\n");
 		}