We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent d0b7f92 commit d41d8c6Copy full SHA for d41d8c6
1 file changed
physics/tools/mpiutil.F90
@@ -236,7 +236,7 @@ subroutine ccpp_abort(comm, str)
236
write(error_unit,'(a)') "ccpp_abort: " // trim(str)
237
#if defined(__INTEL_COMPILER)
238
call tracebackqq("ccpp_abort" // trim(str), user_exit_code=-1)
239
-#else if defined(__GFORTRAN__)
+#elif defined(__GFORTRAN__)
240
call backtrace()
241
#endif
242
call MPI_ABORT(comm, ierr)
0 commit comments