From 5b0a9cea99c9ba533458ba6f0527620703500a05 Mon Sep 17 00:00:00 2001 From: Axel Kohlmeyer Date: Sat, 6 Aug 2022 20:43:04 -0400 Subject: [PATCH] use ISO_C_BINDING compatible return type --- unittest/fortran/test_fortran_create.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/unittest/fortran/test_fortran_create.f90 b/unittest/fortran/test_fortran_create.f90 index 4d56fa9815..73fc83aef4 100644 --- a/unittest/fortran/test_fortran_create.f90 +++ b/unittest/fortran/test_fortran_create.f90 @@ -77,10 +77,11 @@ SUBROUTINE f_lammps_close() BIND(C, name="f_lammps_close") END SUBROUTINE f_lammps_close FUNCTION f_lammps_get_comm() BIND(C, name="f_lammps_get_comm") + USE ISO_C_BINDING, ONLY: c_int USE liblammps USE keepcreate, ONLY: mycomm IMPLICIT NONE - INTEGER :: f_lammps_get_comm + INTEGER(c_int) :: f_lammps_get_comm f_lammps_get_comm = mycomm END FUNCTION f_lammps_get_comm