From 9c48f4bf3e94e027f64a790eb74765fcda29df24 Mon Sep 17 00:00:00 2001
From: edzer <edzer.pebesma@uni-muenster.de>
Date: Tue, 9 Jan 2024 13:13:40 +0100
Subject: [PATCH] safety check.

---
 src/mdim.cpp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/mdim.cpp b/src/mdim.cpp
index 5506a484d..9d80eda06 100644
--- a/src/mdim.cpp
+++ b/src/mdim.cpp
@@ -355,6 +355,8 @@ List CPL_read_mdim(CharacterVector file, CharacterVector array_names, CharacterV
 				for (const auto &co: components) { 
 					auto t(co->GetType());
 					if (t.GetClass() == GEDTC_NUMERIC) {
+						if (t.GetSize() != sizeof(double))
+							stop("only Float64 data supported in numeric compounds");
 						NumericVector vec(nValues);
 						for (int j = 0; j < nValues; j++)
 							memcpy(&(vec[j]), v + j * sz + co->GetOffset(), sizeof(double));