Skip to content

Commit d41d8c6

Browse files
committed
fix new compiler warning in mpiutil.F90
1 parent d0b7f92 commit d41d8c6

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

physics/tools/mpiutil.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -236,7 +236,7 @@ subroutine ccpp_abort(comm, str)
236236
write(error_unit,'(a)') "ccpp_abort: " // trim(str)
237237
#if defined(__INTEL_COMPILER)
238238
call tracebackqq("ccpp_abort" // trim(str), user_exit_code=-1)
239-
#else if defined(__GFORTRAN__)
239+
#elif defined(__GFORTRAN__)
240240
call backtrace()
241241
#endif
242242
call MPI_ABORT(comm, ierr)

0 commit comments

Comments
 (0)