Fix array references where type is a subtype

src/sem.c

@@ -2165,7 +2165,11 @@ static bool sem_check_fcall(tree_t t)
             return sem_check_conversion(t);
          default:
             {
-               type_kind_t kind = type_kind(tree_type(decl));
+               type_t dtype = tree_type(decl);
+               while (type_kind(dtype) == T_SUBTYPE)
+                  dtype = type_base(dtype);
+
+               type_kind_t kind = type_kind(dtype);
                if (kind == T_CARRAY || kind == T_UARRAY) {
                   // The grammar is ambiguous between function calls and
                   // array references so must be an array reference

test/sem/array.vhd

@@ -128,6 +128,18 @@ begin
         x(1 to 3) := (1, 2, 3);         -- OK
         x(2) := 1;                      -- OK
         x(3 downto 1) := (others => '0');  -- Error
+        assert x(2) = 5;                -- OK
     end process;       
-
+
+    process is
+        function foo(size: integer) return int_array is
+	    subtype rtype is int_array(size-1 downto 0);
+            variable result: rtype;
+        begin
+            assert result(0) = 1;
+            return result;
+        end;
+    begin
+    end process;
+
 end architecture;