From a1c94ff580e39b630f43714df313fb32d236c020 Mon Sep 17 00:00:00 2001 From: Albert Ziegenhagel Date: Sat, 29 Aug 2020 12:59:54 +0200 Subject: [PATCH] Fix usage of invalid BOZ integer constants gfortran >= 10.0 started to emit an error for BOZ integer constants in invalid locations. This change replaces the hexadecimal integer constants by regular ones, so that msmpi fortran bindings can be consumed by gfortran without the need to pass `-fallow-invalid-boz`. --- src/include/mpif.h | 98 +++++++++++++++++++-------------------- src/include/x64/mpifptr.h | 2 +- src/include/x86/mpifptr.h | 2 +- 3 files changed, 51 insertions(+), 51 deletions(-) diff --git a/src/include/mpif.h b/src/include/mpif.h index f531a15..aaac5d1 100644 --- a/src/include/mpif.h +++ b/src/include/mpif.h @@ -224,7 +224,7 @@ INTEGER MPI_OP_NULL PARAMETER (MPI_OP_NULL=402653184) INTEGER MPI_DATATYPE_NULL - PARAMETER (MPI_DATATYPE_NULL=z'0c000000') + PARAMETER (MPI_DATATYPE_NULL=201326592) INTEGER MPI_REQUEST_NULL PARAMETER (MPI_REQUEST_NULL=738197504) INTEGER MPI_ERRHANDLER_NULL @@ -300,104 +300,104 @@ INTEGER MPI_LOCK_SHARED PARAMETER (MPI_LOCK_SHARED=235) INTEGER MPI_CHAR - PARAMETER (MPI_CHAR=z'4c000101') + PARAMETER (MPI_CHAR=1275068673) INTEGER MPI_UNSIGNED_CHAR - PARAMETER (MPI_UNSIGNED_CHAR=z'4c000102') + PARAMETER (MPI_UNSIGNED_CHAR=1275068674) INTEGER MPI_SHORT - PARAMETER (MPI_SHORT=z'4c000203') + PARAMETER (MPI_SHORT=1275068931) INTEGER MPI_UNSIGNED_SHORT - PARAMETER (MPI_UNSIGNED_SHORT=z'4c000204') + PARAMETER (MPI_UNSIGNED_SHORT=1275068932) INTEGER MPI_INT - PARAMETER (MPI_INT=z'4c000405') + PARAMETER (MPI_INT=1275069445) INTEGER MPI_UNSIGNED - PARAMETER (MPI_UNSIGNED=z'4c000406') + PARAMETER (MPI_UNSIGNED=1275069446) INTEGER MPI_LONG - PARAMETER (MPI_LONG=z'4c000407') + PARAMETER (MPI_LONG=1275069447) INTEGER MPI_UNSIGNED_LONG - PARAMETER (MPI_UNSIGNED_LONG=z'4c000408') + PARAMETER (MPI_UNSIGNED_LONG=1275069448) INTEGER MPI_LONG_LONG - PARAMETER (MPI_LONG_LONG=z'4c000809') + PARAMETER (MPI_LONG_LONG=1275070473) INTEGER MPI_LONG_LONG_INT - PARAMETER (MPI_LONG_LONG_INT=z'4c000809') + PARAMETER (MPI_LONG_LONG_INT=1275070473) INTEGER MPI_FLOAT - PARAMETER (MPI_FLOAT=z'4c00040a') + PARAMETER (MPI_FLOAT=1275069450) INTEGER MPI_DOUBLE - PARAMETER (MPI_DOUBLE=z'4c00080b') + PARAMETER (MPI_DOUBLE=1275070475) INTEGER MPI_LONG_DOUBLE - PARAMETER (MPI_LONG_DOUBLE=z'4c00080c') + PARAMETER (MPI_LONG_DOUBLE=1275070476) INTEGER MPI_BYTE - PARAMETER (MPI_BYTE=z'4c00010d') + PARAMETER (MPI_BYTE=1275068685) INTEGER MPI_WCHAR - PARAMETER (MPI_WCHAR=z'4c00020e') + PARAMETER (MPI_WCHAR=1275068942) INTEGER MPI_PACKED - PARAMETER (MPI_PACKED=z'4c00010f') + PARAMETER (MPI_PACKED=1275068687) INTEGER MPI_LB - PARAMETER (MPI_LB=z'4c000010') + PARAMETER (MPI_LB=1275068432) INTEGER MPI_UB - PARAMETER (MPI_UB=z'4c000011') + PARAMETER (MPI_UB=1275068433) INTEGER MPI_2INT - PARAMETER (MPI_2INT=z'4c000816') + PARAMETER (MPI_2INT=1275070486) INTEGER MPI_SIGNED_CHAR - PARAMETER (MPI_SIGNED_CHAR=z'4c000118') + PARAMETER (MPI_SIGNED_CHAR=1275068696) INTEGER MPI_UNSIGNED_LONG_LONG - PARAMETER (MPI_UNSIGNED_LONG_LONG=z'4c000819') + PARAMETER (MPI_UNSIGNED_LONG_LONG=1275070489) INTEGER MPI_CHARACTER - PARAMETER (MPI_CHARACTER=z'4c00011a') + PARAMETER (MPI_CHARACTER=1275068698) INTEGER MPI_INTEGER - PARAMETER (MPI_INTEGER=z'4c00041b') + PARAMETER (MPI_INTEGER=1275069467) INTEGER MPI_REAL - PARAMETER (MPI_REAL=z'4c00041c') + PARAMETER (MPI_REAL=1275069468) INTEGER MPI_LOGICAL - PARAMETER (MPI_LOGICAL=z'4c00041d') + PARAMETER (MPI_LOGICAL=1275069469) INTEGER MPI_COMPLEX - PARAMETER (MPI_COMPLEX=z'4c00081e') + PARAMETER (MPI_COMPLEX=1275070494) INTEGER MPI_DOUBLE_PRECISION - PARAMETER (MPI_DOUBLE_PRECISION=z'4c00081f') + PARAMETER (MPI_DOUBLE_PRECISION=1275070495) INTEGER MPI_2INTEGER - PARAMETER (MPI_2INTEGER=z'4c000820') + PARAMETER (MPI_2INTEGER=1275070496) INTEGER MPI_2REAL - PARAMETER (MPI_2REAL=z'4c000821') + PARAMETER (MPI_2REAL=1275070497) INTEGER MPI_DOUBLE_COMPLEX - PARAMETER (MPI_DOUBLE_COMPLEX=z'4c001022') + PARAMETER (MPI_DOUBLE_COMPLEX=1275072546) INTEGER MPI_2DOUBLE_PRECISION - PARAMETER (MPI_2DOUBLE_PRECISION=z'4c001023') + PARAMETER (MPI_2DOUBLE_PRECISION=1275072547) INTEGER MPI_2COMPLEX - PARAMETER (MPI_2COMPLEX=z'4c001024') + PARAMETER (MPI_2COMPLEX=1275072548) INTEGER MPI_2DOUBLE_COMPLEX - PARAMETER (MPI_2DOUBLE_COMPLEX=z'4c002025') + PARAMETER (MPI_2DOUBLE_COMPLEX=1275076645) INTEGER MPI_REAL2 - PARAMETER (MPI_REAL2=z'0c000000') + PARAMETER (MPI_REAL2=201326592) INTEGER MPI_REAL4 - PARAMETER (MPI_REAL4=z'4c000427') + PARAMETER (MPI_REAL4=1275069479) INTEGER MPI_COMPLEX8 - PARAMETER (MPI_COMPLEX8=z'4c000828') + PARAMETER (MPI_COMPLEX8=1275070504) INTEGER MPI_REAL8 - PARAMETER (MPI_REAL8=z'4c000829') + PARAMETER (MPI_REAL8=1275070505) INTEGER MPI_COMPLEX16 - PARAMETER (MPI_COMPLEX16=z'4c00102a') + PARAMETER (MPI_COMPLEX16=1275072554) INTEGER MPI_REAL16 - PARAMETER (MPI_REAL16=z'0c000000') + PARAMETER (MPI_REAL16=201326592) INTEGER MPI_COMPLEX32 - PARAMETER (MPI_COMPLEX32=z'0c000000') + PARAMETER (MPI_COMPLEX32=201326592) INTEGER MPI_INTEGER1 - PARAMETER (MPI_INTEGER1=z'4c00012d') + PARAMETER (MPI_INTEGER1=1275068717) INTEGER MPI_COMPLEX4 - PARAMETER (MPI_COMPLEX4=z'0c000000') + PARAMETER (MPI_COMPLEX4=201326592) INTEGER MPI_INTEGER2 - PARAMETER (MPI_INTEGER2=z'4c00022f') + PARAMETER (MPI_INTEGER2=1275068975) INTEGER MPI_INTEGER4 - PARAMETER (MPI_INTEGER4=z'4c000430') + PARAMETER (MPI_INTEGER4=1275069488) INTEGER MPI_INTEGER8 - PARAMETER (MPI_INTEGER8=z'4c000831') + PARAMETER (MPI_INTEGER8=1275070513) INTEGER MPI_INTEGER16 - PARAMETER (MPI_INTEGER16=z'0c000000') + PARAMETER (MPI_INTEGER16=201326592) INCLUDE 'mpifptr.h' INTEGER MPI_OFFSET - PARAMETER (MPI_OFFSET=z'4c00083c') + PARAMETER (MPI_OFFSET=1275070524) INTEGER MPI_COUNT - PARAMETER (MPI_COUNT=z'4c00083d') + PARAMETER (MPI_COUNT=1275070525) INTEGER MPI_FLOAT_INT PARAMETER (MPI_FLOAT_INT=-1946157056) INTEGER MPI_DOUBLE_INT diff --git a/src/include/x64/mpifptr.h b/src/include/x64/mpifptr.h index 1d4a288..58d9b62 100644 --- a/src/include/x64/mpifptr.h +++ b/src/include/x64/mpifptr.h @@ -4,6 +4,6 @@ ! Licensed under the MIT License. ! INTEGER MPI_AINT - PARAMETER (MPI_AINT=z'4c00083b') + PARAMETER (MPI_AINT=1275070523) INTEGER MPI_ADDRESS_KIND PARAMETER(MPI_ADDRESS_KIND = 8) diff --git a/src/include/x86/mpifptr.h b/src/include/x86/mpifptr.h index 1028a1d..ff28c14 100644 --- a/src/include/x86/mpifptr.h +++ b/src/include/x86/mpifptr.h @@ -4,6 +4,6 @@ ! Licensed under the MIT License. ! INTEGER MPI_AINT - PARAMETER (MPI_AINT=z'4c00043b') + PARAMETER (MPI_AINT=1275069499) INTEGER MPI_ADDRESS_KIND PARAMETER(MPI_ADDRESS_KIND = 4)