silence compiler warnings, avoid integer or buffer overflows

2022-10-05 10:52:17 -04:00
parent 7fa020e574
commit 80da4c307c
4 changed files with 23 additions and 30 deletions
--- a/unittest/fortran/test_fortran_gather_scatter.f90
+++ b/unittest/fortran/test_fortran_gather_scatter.f90
@ -190,7 +190,6 @@ SUBROUTINE f_lammps_scatter_atoms_subset_mask() BIND(C)
  INTEGER(c_int), DIMENSION(:), ALLOCATABLE :: all_masks
  INTEGER(c_int), DIMENSION(*), PARAMETER :: tags = [3,1]
  INTEGER(c_int), DIMENSION(2) :: masks
-  INTEGER(c_int) :: swap

  CALL lmp%gather_atoms('mask', 1_c_int, all_masks)