Skip to content

Commit 279def3

Browse files
committed
Fix include mpif.h
- #include must use ", ' not allowed - switch everything to `include` not `#include` for consistency
1 parent f9f750f commit 279def3

File tree

6 files changed

+6
-6
lines changed

6 files changed

+6
-6
lines changed

src/extensions/opencoarrays.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -33,7 +33,7 @@ module opencoarrays
3333
implicit none
3434

3535
#ifndef MPI_WORKING_MODULE
36-
#include 'mpif.h'
36+
include 'mpif.h'
3737
#endif
3838

3939
private

src/tests/integration/dist_transpose/coarray_distributed_transpose.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -40,7 +40,7 @@ module run_size
4040
implicit none
4141
# else
4242
implicit none
43-
# include 'mpif.h'
43+
include 'mpif.h'
4444
interface WALLTIME
4545
function MPI_WTIME() result(res)
4646
double precision :: res

src/tests/integration/pde_solvers/navier-stokes/coarray-shear_coll.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -117,7 +117,7 @@ module run_size
117117
implicit none
118118
# else
119119
implicit none
120-
# include 'mpif.h'
120+
include 'mpif.h'
121121
interface WALLTIME
122122
function MPI_WTIME() result(res)
123123
double precision :: res

src/tests/performance/BurgersMPI/shared.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -29,7 +29,7 @@ module shared
2929
#ifdef MPI_WORKING_MODULE
3030
use mpi !non-native mpi functionality
3131
#else
32-
# include 'mpif.h'
32+
include 'mpif.h'
3333
#endif
3434
integer :: tag, status(MPI_STATUS_SIZE)
3535
integer :: MPI_COMM_CART

src/tests/performance/mpi_dist_transpose/mpi_distributed_transpose.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -43,7 +43,7 @@ module mpi_run_size
4343
implicit none
4444
# else
4545
implicit none
46-
# include 'mpif.h'
46+
include 'mpif.h'
4747
interface WALLTIME
4848
function MPI_WTIME() result(res)
4949
double precision :: res

src/tests/unit/init_register/initialize_mpi.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -31,7 +31,7 @@ program initialize_mpi
3131
implicit none
3232
#else
3333
implicit none
34-
# include 'mpif.h'
34+
include 'mpif.h'
3535
interface
3636
subroutine MPI_COMM_SIZE(mpi_comm,nranks,ierr)
3737
integer, intent(in) :: mpi_comm

0 commit comments

Comments
 (0)