use ISO_C_BINDING compatible return type

2022-08-06 20:43:04 -04:00
parent b465d3c86f
commit 5b0a9cea99
1 changed files with 2 additions and 1 deletions
--- 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