varargs: don't allow 'any alias "modifier"' types unless also a pointer

Author: jayrm

src/compiler/parser-decl-var.bas

@@ -65,6 +65,15 @@ sub hSymbolType _
 		lgt = typeGetSize( dtype )
 	end if
 
+	'' ANY alias "modifier" but no pointer level?
+	if( typeHasMangleDt( dtype ) and (typeGetDtAndPtrOnly( dtype ) = FB_DATATYPE_VOID) ) then
+		errReport( FB_ERRMSG_INVALIDDATATYPES )
+		'' error recovery: fake a type
+		dtype = typeAddrOf( dtype )
+		subtype = NULL
+		lgt = typeGetSize( dtype )
+	end if
+
 end sub
 
 function hCheckScope() as integer

tests/dim/dim-bad-datatype-1.bas

@@ -0,0 +1,3 @@
+' TEST_MODE : COMPILE_ONLY_FAIL
+
+dim x as any alias "char"