diff --git a/src/mo_fortran_tools.F90 b/src/mo_fortran_tools.F90
index c5ba60d77af205606497077d0ebff04ea16086c1..b703245e4deabf59fc228557f73a0dc9300a19ab 100644
--- a/src/mo_fortran_tools.F90
+++ b/src/mo_fortran_tools.F90
@@ -2353,6 +2353,9 @@ CONTAINS
     LOGICAL, INTENT(IN) :: lacc
     LOGICAL, INTENT(IN) :: i_am_accel_node
 
+    PRINT *, "lacc = ", lacc
+    PRINT *, "i_am_accel_node = ", i_am_accel_node
+
 #ifdef _OPENACC
     IF (lacc .NEQV. i_am_accel_node) THEN
       CALL finish(routine_name, 'lacc /= i_am_accel_node')