Index: src/ResolvExpr/Resolver.cc
===================================================================
--- src/ResolvExpr/Resolver.cc	(revision 3e5dd91354f39b161547cc1119ecef5890aa765f)
+++ src/ResolvExpr/Resolver.cc	(revision 8ba363e6454b54630aee996eb4e6f65ade4609d3)
@@ -1539,5 +1539,5 @@
 		if ( type->dimension ) {
 			#warning should use new equivalent to Validate::SizeType rather than sizeType here
-			ast::ptr< ast::Type > sizeType = new ast::BasicType{ ast::BasicType::LongUnsignedInt };
+			ast::ptr< ast::Type > sizeType = ast::sizeType;
 			ast::mutate_field(
 				type, &PtrType::dimension,