diff --git a/src/LIB/SURCOUCHE/src/mode_device.f90 b/src/LIB/SURCOUCHE/src/mode_device.f90
index b8a4724e6b65523209aff5d55933d3772caf0650..31ef0b30cfd9b5d84c281611d45d141249bb7a82 100644
--- a/src/LIB/SURCOUCHE/src/mode_device.f90
+++ b/src/LIB/SURCOUCHE/src/mode_device.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2016-2018 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2016-2019 CNRS, Meteo-France and Universite Paul Sabatier
 !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
 !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
 !MNH_LIC for details. version 1.
@@ -215,7 +215,7 @@ CONTAINS
 
 #ifdef _OPENACC
     G_PTAB_ON_DEVICE =  acc_is_present(PTAB)
-    G_EXEC_ON_DEVICE =  ( acc_get_device_type() <> acc_device_host )
+    G_EXEC_ON_DEVICE =  ( acc_get_device_type() /= acc_device_host )
     if (G_EXEC_ON_DEVICE) then
        if (G_PTAB_ON_DEVICE) then
           print*,"PRESENT::",HMSG