From ff2eec133fc8c0724ddf7bdf750306dbfbbcce8f Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Wed, 11 Nov 2020 21:30:11 +0100
Subject: [PATCH] underflow/denormal might appear for gfortran

---
 src/parallelization.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/parallelization.f90 b/src/parallelization.f90
index 53224fa9e..b7d7c50a8 100644
--- a/src/parallelization.f90
+++ b/src/parallelization.f90
@@ -53,7 +53,7 @@ subroutine parallelization_init
   call PetscInitializeNoArguments(petsc_err)                                                        ! first line in the code according to PETSc manual
   CHKERRQ(petsc_err)
 
-#ifdef DEBUG
+#if defined(DEBUG) && defined(__INTEL_COMPILER)
   call PetscSetFPTrap(PETSC_FP_TRAP_ON,petsc_err)
 #else
   call PetscSetFPTrap(PETSC_FP_TRAP_OFF,petsc_err)