[petsc-dev] SETERRQ in fortran

[Satish Balay]

The current code needs the following fix for --with-errorchecking=0.
But since this code is likely to be changed - I won't push this..

Satish

-------

diff --git a/include/petsc/finclude/petscsys.h b/include/petsc/finclude/petscsys.h
index e5d5cb5f09..ce0170b0c4 100644
--- a/include/petsc/finclude/petscsys.h
+++ b/include/petsc/finclude/petscsys.h
@@ -201,8 +201,8 @@
 #define CHKERRA(ierr) if (ierr .ne. 0) then;call PetscErrorF(ierr);call MPIU_Abort(MPI_COMM_SELF,ierr);endif
 #define CHKMEMQ call chkmemfortran(__LINE__,__FILE__,ierr)
 #else
-#define SETERRQ(c,ierr,s)
-#define SETERRA(c,ierr,s)
+#define SETERRQ(c,ierr,s) ;endif
+#define SETERRA(c,ierr,s) ;endif
 #define CHKERRQ(ierr)
 #define CHKERRA(c,ierr)
 #define CHKMEMQ