From 23c22b4f4fb177651c0f486448ed20eec819360b Mon Sep 17 00:00:00 2001 From: Axel Kohlmeyer Date: Mon, 31 Oct 2022 13:06:03 -0400 Subject: [PATCH] silence compiler warnings --- unittest/fortran/test_fortran_configuration.f90 | 6 ++---- unittest/fortran/test_fortran_create_atoms.f90 | 2 +- unittest/fortran/test_fortran_gather_scatter.f90 | 4 ++-- 3 files changed, 5 insertions(+), 7 deletions(-) diff --git a/unittest/fortran/test_fortran_configuration.f90 b/unittest/fortran/test_fortran_configuration.f90 index 0ade62dc6f..a3ccb876ec 100644 --- a/unittest/fortran/test_fortran_configuration.f90 +++ b/unittest/fortran/test_fortran_configuration.f90 @@ -132,8 +132,7 @@ FUNCTION f_lammps_has_package(Cname) BIND(C) INTEGER(c_int) :: f_lammps_has_package CHARACTER(LEN=1,KIND=c_char), DIMENSION(:), POINTER :: Fname CHARACTER(LEN=:), ALLOCATABLE :: name - INTEGER(c_size_t) :: length - INTEGER :: i + INTEGER(c_size_t) :: length, i length = c_strlen(Cname) CALL C_F_POINTER(Cname, Fname, [length]) @@ -198,10 +197,9 @@ FUNCTION f_lammps_config_accelerator(package, category, setting) BIND(C) IMPLICIT NONE TYPE(c_ptr), VALUE :: package, category, setting INTEGER(c_int) :: f_lammps_config_accelerator - INTEGER(c_size_t) :: len_package, len_category, len_setting + INTEGER(c_size_t) :: len_package, len_category, len_setting, i CHARACTER(LEN=1,KIND=c_char), POINTER :: Cpackage(:),Ccategory(:),Csetting(:) CHARACTER(LEN=:), ALLOCATABLE :: Fpackage, Fcategory, Fsetting - INTEGER :: i LOGICAL :: configured len_package = c_strlen(package) diff --git a/unittest/fortran/test_fortran_create_atoms.f90 b/unittest/fortran/test_fortran_create_atoms.f90 index d5e2ffe280..0a81bb39d7 100644 --- a/unittest/fortran/test_fortran_create_atoms.f90 +++ b/unittest/fortran/test_fortran_create_atoms.f90 @@ -24,7 +24,7 @@ END SUBROUTINE f_lammps_close SUBROUTINE f_lammps_setup_create_atoms() BIND(C) USE LIBLAMMPS - USE keepstuff, ONLY : lmp, big_input, cont_input, more_input, pair_input + USE keepstuff, ONLY : lmp, big_input, cont_input, more_input IMPLICIT NONE !CALL lmp%command('atom_modify map array') diff --git a/unittest/fortran/test_fortran_gather_scatter.f90 b/unittest/fortran/test_fortran_gather_scatter.f90 index 45e6085af2..2115a10394 100644 --- a/unittest/fortran/test_fortran_gather_scatter.f90 +++ b/unittest/fortran/test_fortran_gather_scatter.f90 @@ -228,7 +228,7 @@ END SUBROUTINE f_lammps_setup_gather_bonds FUNCTION f_lammps_test_gather_bonds_small() BIND(C) RESULT(success) USE, INTRINSIC :: ISO_C_BINDING, ONLY : c_int, c_int64_t USE LIBLAMMPS - USE keepstuff, ONLY : lmp, pair_input + USE keepstuff, ONLY : lmp IMPLICIT NONE INTEGER(c_int) :: success INTEGER(c_int), DIMENSION(:), ALLOCATABLE, TARGET :: bonds @@ -247,7 +247,7 @@ END FUNCTION f_lammps_test_gather_bonds_small FUNCTION f_lammps_test_gather_bonds_big() BIND(C) RESULT(success) USE, INTRINSIC :: ISO_C_BINDING, ONLY : c_int, c_int64_t USE LIBLAMMPS - USE keepstuff, ONLY : lmp, pair_input + USE keepstuff, ONLY : lmp IMPLICIT NONE INTEGER(c_int) :: success INTEGER(c_int64_t), DIMENSION(:), ALLOCATABLE, TARGET :: bonds