From a87db2ba0b683f090e33b2801ba8dc5afa3d15af Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Wed, 12 Jan 2022 16:56:24 +0100
Subject: [PATCH] test for long long integer

---
 src/parallelization.f90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/parallelization.f90 b/src/parallelization.f90
index ebb9573d4..17f9698a5 100644
--- a/src/parallelization.f90
+++ b/src/parallelization.f90
@@ -86,6 +86,10 @@ subroutine parallelization_init
   if (err /= 0)                              error stop 'Could not determine MPI integer size'
   if (typeSize*8 /= bit_size(0))             error stop 'Mismatch between MPI and DAMASK integer'
 
+  call MPI_Type_size(MPI_INTEGER8,typeSize,err)
+  if (err /= 0)                              error stop 'Could not determine MPI integer size'
+  if (typeSize*8 /= bit_size(0_pI64))        error stop 'Mismatch between MPI and DAMASK integer (long long)'
+
   call MPI_Type_size(MPI_DOUBLE,typeSize,err)
   if (err /= 0)                              error stop 'Could not determine MPI real size'
   if (typeSize*8 /= storage_size(0.0_pReal)) error stop 'Mismatch between MPI and DAMASK real'