[petsc-dev] SETERRQ in fortran

[Smith, Barry F.]

  Ok, thanks for figuring it out.



> On Jan 31, 2018, at 1:04 PM, Balay, Satish <balay at mcs.anl.gov> wrote:
> 
> 
> 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