From 8f5c7408c5d253408b8a758fdb36bbadb04c83d4 Mon Sep 17 00:00:00 2001
From: Jeff Hammond <jeff.r.hammond@intel.com>
Date: Sun, 5 Jul 2015 04:41:57 +0000
Subject: [PATCH] call MPI_Abort with the appropriate arguments

---
 contrib/openmp_tests/dgemm/xerbla.F | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/contrib/openmp_tests/dgemm/xerbla.F b/contrib/openmp_tests/dgemm/xerbla.F
index a293145b7b..585aa5bde4 100644
--- a/contrib/openmp_tests/dgemm/xerbla.F
+++ b/contrib/openmp_tests/dgemm/xerbla.F
@@ -1,4 +1,5 @@
       SUBROUTINE XERBLA( SRNAME, INFO )
+#include "mpif.h"
 *
 *  -- LAPACK auxiliary routine (version 2.0) --
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -8,6 +9,7 @@
 *     .. Scalar Arguments ..
       CHARACTER*6        SRNAME
       INTEGER            INFO
+      INTEGER            IERR
 *     ..
 *
 c
@@ -40,7 +42,7 @@ c
       WRITE( *, FMT = 9999 )SRNAME, INFO
 *
 *      STOP
-      call MPI_Abort()
+      call MPI_Abort(MPI_COMM_WORLD,INFO,IERR)
 c     call errquit('xerbla:double: lapack error',911, BASIS_ERR)
 *
  9999 FORMAT( ' ** On entry to ', A6, ' parameter number ', I2, ' had ',