chore(intrinsic_array): fix typo in error message

rouson · rouson · commit 313e5e613cf9 · 2024-02-09T22:36:05.000-08:00
diff --git a/src/assert/intrinsic_array_s.F90 b/src/assert/intrinsic_array_s.F90
@@ -20,7 +20,7 @@
       type is(double precision)
         allocate(intrinsic_array%double_precision_1D, source = array)
       class default
-        error  stop "intrinsic_array_t construct: unsupported rank-2 type"
+        error  stop "intrinsic_array_t construct: unsupported rank-1 type"
       end select
     rank(2)
       select type(array)
