From 42a7294bc1f2937af3e7b14d22d999d0be9e8e1f Mon Sep 17 00:00:00 2001
From: Axel Kohlmeyer <akohlmey@gmail.com>
Date: Fri, 6 Sep 2024 14:00:27 -0400
Subject: [PATCH] silence compiler warnings

---
 fortran/lammps.f90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/fortran/lammps.f90 b/fortran/lammps.f90
index 6ced71be49..a2f28073e5 100644
--- a/fortran/lammps.f90
+++ b/fortran/lammps.f90
@@ -1443,7 +1443,7 @@ CONTAINS
     IF (SIZE_TAGINT == 8) THEN
         Cptr = C_LOC(id)
     ELSE
-        id32 = id
+        id32 = INT(id, c_int)
         Cptr = C_LOC(id32)
     END IF
     lmp_map_atom_big = lammps_map_atom(self%handle, Cptr) + 1
@@ -2604,6 +2604,8 @@ CONTAINS
     TYPE(c_ptr) :: Cid, Ctype, Cx, Cv, Cimage
     INTEGER(c_int) :: tagint_size, atoms_created
 
+    Ctype = c_null_ptr
+    Cx = c_null_ptr
     ! type is actually NOT optional, but we can't make id optional without it,
     ! so we check at run-time
     IF (.NOT. PRESENT(type)) THEN