From fa8cfa8f8f0513a35237480f42f638bb72b71d4b Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Thu, 4 Feb 2021 17:40:17 -0300 Subject: [PATCH] COMPRESSION: Remove the 2GiB limit in compress(). Signed-off-by: Grzegorz Kowal --- sources/compression.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sources/compression.F90 b/sources/compression.F90 index 86c39b6..b2dc6bb 100644 --- a/sources/compression.F90 +++ b/sources/compression.F90 @@ -255,7 +255,7 @@ module compression !------------------------------------------------------------------------------- ! - csize = min(size(input), size(output)) + csize = min(size(input, kind=8), size(output, kind=8)) select case(compression_format) #ifdef ZSTD case(compression_zstd)