Skip to content

Commit f568b64

Browse files
KineticTheoryKineticTheory
committed
Eliminate BOZ warnings issued by gfortran when parsing mpif.h
When using MS-MPI's `mpif.h` with gfortran version 10+ there are many warnings of the form: ` warning : BOZ literal constant at (1) is neither a data-stmt-constant nor an actual argument to INT, REAL, DBLE, or CMPLX intrinsic function`. The eliminate these warnings convert the hex data types to integers. This extends the work started in microsoft#25. fixes microsoft#44
1 parent 7ff6bdc commit f568b64

File tree

1 file changed

+48
-48
lines changed

1 file changed

+48
-48
lines changed

‎src/include/mpif.h‎

Lines changed: 48 additions & 48 deletions
Original file line numberDiff line numberDiff line change
@@ -300,104 +300,104 @@
300300
INTEGER MPI_LOCK_SHARED
301301
PARAMETER (MPI_LOCK_SHARED=235)
302302
INTEGER MPI_CHAR
303-
PARAMETER (MPI_CHAR=z'4c000101')
303+
PARAMETER (MPI_CHAR=1275068673) ! z'4c000101'
304304
INTEGER MPI_UNSIGNED_CHAR
305-
PARAMETER (MPI_UNSIGNED_CHAR=z'4c000102')
305+
PARAMETER (MPI_UNSIGNED_CHAR=1275068674) ! z'4c000102'
306306
INTEGER MPI_SHORT
307-
PARAMETER (MPI_SHORT=z'4c000203')
307+
PARAMETER (MPI_SHORT=1275068931 ! z'4c000203'
308308
INTEGER MPI_UNSIGNED_SHORT
309-
PARAMETER (MPI_UNSIGNED_SHORT=z'4c000204')
309+
PARAMETER (MPI_UNSIGNED_SHORT=1275068932) ! z'4c000204'
310310
INTEGER MPI_INT
311-
PARAMETER (MPI_INT=z'4c000405')
311+
PARAMETER (MPI_INT=1275069445) ! z'4c000405'
312312
INTEGER MPI_UNSIGNED
313-
PARAMETER (MPI_UNSIGNED=z'4c000406')
313+
PARAMETER (MPI_UNSIGNED=1275069446) ! z'4c000406'
314314
INTEGER MPI_LONG
315-
PARAMETER (MPI_LONG=z'4c000407')
315+
PARAMETER (MPI_LONG=1275069447) ! z'4c000407'
316316
INTEGER MPI_UNSIGNED_LONG
317-
PARAMETER (MPI_UNSIGNED_LONG=z'4c000408')
317+
PARAMETER (MPI_UNSIGNED_LONG=1275069447) ! z'4c000408'
318318
INTEGER MPI_LONG_LONG
319-
PARAMETER (MPI_LONG_LONG=z'4c000809')
319+
PARAMETER (MPI_LONG_LONG=1275070473) ! z'4c000809'
320320
INTEGER MPI_LONG_LONG_INT
321-
PARAMETER (MPI_LONG_LONG_INT=z'4c000809')
321+
PARAMETER (MPI_LONG_LONG_INT=1275070473) ! z'4c000809'
322322
INTEGER MPI_FLOAT
323-
PARAMETER (MPI_FLOAT=z'4c00040a')
323+
PARAMETER (MPI_FLOAT=1275069450) ! z'4c00040a'
324324
INTEGER MPI_DOUBLE
325-
PARAMETER (MPI_DOUBLE=z'4c00080b')
325+
PARAMETER (MPI_DOUBLE=1275070475) ! z'4c00080b'
326326
INTEGER MPI_LONG_DOUBLE
327-
PARAMETER (MPI_LONG_DOUBLE=z'4c00080c')
327+
PARAMETER (MPI_LONG_DOUBLE=1275070475) ! z'4c00080c'
328328
INTEGER MPI_BYTE
329-
PARAMETER (MPI_BYTE=z'4c00010d')
329+
PARAMETER (MPI_BYTE=1275068685) ! z'4c00010d'
330330
INTEGER MPI_WCHAR
331-
PARAMETER (MPI_WCHAR=z'4c00020e')
331+
PARAMETER (MPI_WCHAR=1275068942) !z'4c00020e'
332332
INTEGER MPI_PACKED
333-
PARAMETER (MPI_PACKED=z'4c00010f')
333+
PARAMETER (MPI_PACKED=1275068687) ! z'4c00010f'
334334
INTEGER MPI_LB
335-
PARAMETER (MPI_LB=z'4c000010')
335+
PARAMETER (MPI_LB=1275068432) !z'4c000010'
336336
INTEGER MPI_UB
337-
PARAMETER (MPI_UB=z'4c000011')
337+
PARAMETER (MPI_UB=1275068433) ! z'4c000011'
338338
INTEGER MPI_2INT
339-
PARAMETER (MPI_2INT=z'4c000816')
339+
PARAMETER (MPI_2INT=1275070486) ! z'4c000816'
340340
INTEGER MPI_SIGNED_CHAR
341-
PARAMETER (MPI_SIGNED_CHAR=z'4c000118')
341+
PARAMETER (MPI_SIGNED_CHAR=1275068696) ! z'4c000118'
342342
INTEGER MPI_UNSIGNED_LONG_LONG
343-
PARAMETER (MPI_UNSIGNED_LONG_LONG=z'4c000819')
343+
PARAMETER (MPI_UNSIGNED_LONG_LONG=1275070489) ! z'4c000819'
344344
INTEGER MPI_CHARACTER
345-
PARAMETER (MPI_CHARACTER=z'4c00011a')
345+
PARAMETER (MPI_CHARACTER=1275068698) ! z'4c00011a'
346346
INTEGER MPI_INTEGER
347-
PARAMETER (MPI_INTEGER=z'4c00041b')
347+
PARAMETER (MPI_INTEGER=1275069467) ! z'4c00041b'
348348
INTEGER MPI_REAL
349-
PARAMETER (MPI_REAL=z'4c00041c')
349+
PARAMETER (MPI_REAL=1275069468) ! z'4c00041c'
350350
INTEGER MPI_LOGICAL
351-
PARAMETER (MPI_LOGICAL=z'4c00041d')
351+
PARAMETER (MPI_LOGICAL=1275069469) ! z'4c00041d'
352352
INTEGER MPI_COMPLEX
353-
PARAMETER (MPI_COMPLEX=z'4c00081e')
353+
PARAMETER (MPI_COMPLEX=1275070494) ! z'4c00081e'
354354
INTEGER MPI_DOUBLE_PRECISION
355-
PARAMETER (MPI_DOUBLE_PRECISION=z'4c00081f')
355+
PARAMETER (MPI_DOUBLE_PRECISION=1275070495) ! z'4c00081f'
356356
INTEGER MPI_2INTEGER
357-
PARAMETER (MPI_2INTEGER=z'4c000820')
357+
PARAMETER (MPI_2INTEGER=1275070496) ! z'4c000820'
358358
INTEGER MPI_2REAL
359-
PARAMETER (MPI_2REAL=z'4c000821')
359+
PARAMETER (MPI_2REAL=1275070497) ! z'4c000821'
360360
INTEGER MPI_DOUBLE_COMPLEX
361-
PARAMETER (MPI_DOUBLE_COMPLEX=z'4c001022')
361+
PARAMETER (MPI_DOUBLE_COMPLEX=1275072546) ! z'4c001022'
362362
INTEGER MPI_2DOUBLE_PRECISION
363-
PARAMETER (MPI_2DOUBLE_PRECISION=z'4c001023')
363+
PARAMETER (MPI_2DOUBLE_PRECISION=1275072547) ! z'4c001023'
364364
INTEGER MPI_2COMPLEX
365-
PARAMETER (MPI_2COMPLEX=z'4c001024')
365+
PARAMETER (MPI_2COMPLEX=1275072548) ! z'4c001024'
366366
INTEGER MPI_2DOUBLE_COMPLEX
367-
PARAMETER (MPI_2DOUBLE_COMPLEX=z'4c002025')
367+
PARAMETER (MPI_2DOUBLE_COMPLEX=1275072549) ! z'4c002025'
368368
INTEGER MPI_REAL2
369-
PARAMETER (MPI_REAL2=z'0c000000')
369+
PARAMETER (MPI_REAL2=201326592) ! z'0c000000'
370370
INTEGER MPI_REAL4
371-
PARAMETER (MPI_REAL4=z'4c000427')
371+
PARAMETER (MPI_REAL4=1275069479) ! z'4c000427'
372372
INTEGER MPI_COMPLEX8
373-
PARAMETER (MPI_COMPLEX8=z'4c000828')
373+
PARAMETER (MPI_COMPLEX8=1275070504) ! z'4c000828'
374374
INTEGER MPI_REAL8
375-
PARAMETER (MPI_REAL8=z'4c000829')
375+
PARAMETER (MPI_REAL8=1275070505) ! z'4c000829'
376376
INTEGER MPI_COMPLEX16
377-
PARAMETER (MPI_COMPLEX16=z'4c00102a')
377+
PARAMETER (MPI_COMPLEX16=1275072554) ! z'4c00102a'
378378
INTEGER MPI_REAL16
379-
PARAMETER (MPI_REAL16=z'0c000000')
379+
PARAMETER (MPI_REAL16=201326592)
380380
INTEGER MPI_COMPLEX32
381-
PARAMETER (MPI_COMPLEX32=z'0c000000')
381+
PARAMETER (MPI_COMPLEX32=201326592)
382382
INTEGER MPI_INTEGER1
383-
PARAMETER (MPI_INTEGER1=z'4c00012d')
383+
PARAMETER (MPI_INTEGER1=1275068717) ! z'4c00012d'
384384
INTEGER MPI_COMPLEX4
385-
PARAMETER (MPI_COMPLEX4=z'0c000000')
385+
PARAMETER (MPI_COMPLEX4=201326592)
386386
INTEGER MPI_INTEGER2
387-
PARAMETER (MPI_INTEGER2=z'4c00022f')
387+
PARAMETER (MPI_INTEGER2=1275068975) ! z'4c00022f'
388388
INTEGER MPI_INTEGER4
389-
PARAMETER (MPI_INTEGER4=z'4c000430')
389+
PARAMETER (MPI_INTEGER4=1275069488) ! z'4c000430'
390390
INTEGER MPI_INTEGER8
391-
PARAMETER (MPI_INTEGER8=z'4c000831')
391+
PARAMETER (MPI_INTEGER8=1275070513) ! z'4c000831'
392392
INTEGER MPI_INTEGER16
393-
PARAMETER (MPI_INTEGER16=z'0c000000')
393+
PARAMETER (MPI_INTEGER16=201326592)
394394

395395
INCLUDE 'mpifptr.h'
396396

397397
INTEGER MPI_OFFSET
398-
PARAMETER (MPI_OFFSET=z'4c00083c')
398+
PARAMETER (MPI_OFFSET=1275070524) ! z'4c00083c'
399399
INTEGER MPI_COUNT
400-
PARAMETER (MPI_COUNT=z'4c00083d')
400+
PARAMETER (MPI_COUNT=1275070525) ! z'4c00083d'
401401
INTEGER MPI_FLOAT_INT
402402
PARAMETER (MPI_FLOAT_INT=-1946157056)
403403
INTEGER MPI_DOUBLE_INT

0 commit comments

Comments
 (0)