Commit b74a4aae authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Add explicit interface for gfortran 10.

* gfortran 10 otherwise warns about inconsistent use of
  dummy arguments a/send_buf/recv_buf respectively.
parent b640c79d
......@@ -90,6 +90,23 @@ MODULE ppm_checksum
PUBLIC :: hex_checksum, init_digests
PUBLIC :: ppm_md5, ppm_sha1, digest_description
PUBLIC :: hashes
#if defined __GNUC__ && __GNUC__ > 4
INTERFACE
SUBROUTINE ppm_hex_checksum_f(a,n,es,hd,hex)
IMPORT :: digest_description
INTEGER, INTENT(in) :: n, es
INTEGER, INTENT(in) :: a(*)
!DEC$ ATTRIBUTES NO_ARG_CHECK :: a
!GCC$ ATTRIBUTES NO_ARG_CHECK :: a
!$PRAGMA IGNORE_TKR a
!DIR$ IGNORE_TKR a
!IBM* IGNORE_TKR a
TYPE(digest_description), INTENT(in) :: hd
CHARACTER(len=*) :: hex
END SUBROUTINE ppm_hex_checksum_f
END INTERFACE
#endif
CONTAINS
SUBROUTINE init_digests
INTERFACE
......
......@@ -113,6 +113,23 @@ MODULE linear_algebra
PUBLIC :: calc_abs_res, calc_rel_res, arr_dotproduct, global_sum, arr_norm_2
#if defined __GNUC__ && __GNUC__ > 4
INTERFACE
SUBROUTINE mpi_allreduce(sendbuf, recvbuf, count, datatype, op, comm, &
ierror)
INTEGER, INTENT(in) :: count, datatype, op, comm
INTEGER, INTENT(out) :: ierror
INTEGER, INTENT(in) :: sendbuf(*)
INTEGER, INTENT(inout) :: recvbuf(*)
!DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf
!GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf
!$PRAGMA IGNORE_TKR sendbuf, recvbuf
!DIR$ IGNORE_TKR sendbuf, recvbuf
!IBM* IGNORE_TKR sendbuf, recvbuf
END SUBROUTINE mpi_allreduce
END INTERFACE
#endif
CONTAINS
#define PREC sp
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment