Changeset 2623 for XIOS2/trunk/src/interface/fortran/itimer.F90

Timestamp:

03/21/24 10:13:06 (4 months ago)

Author:

jderouillat

Message:

Modify fortran-C interfaces to manage logical-bool conversion, the optimizations of OneAPI could produce bugs regarding the logical-bool encodings.

File:

• XIOS2/trunk/src/interface/fortran/itimer.F90 (modified) (3 diffs)

XIOS2/trunk/src/interface/fortran/itimer.F90

@@ -4 +4 @@
    USE, INTRINSIC :: ISO_C_BINDING
    USE TIMER_INTERFACE
+   USE LOGICAL_BOOL_CONVERSION
 
    CONTAINS ! Fonctions disponibles pour les utilisateurs.
@@ -15 +16 @@
       trace_=.TRUE.
       IF (PRESENT(trace)) trace_ = trace
+      CALL xios_logical_to_bool_0d(trace_)
       CALL cxios_timer_resume(timer_id, len(timer_id),trace_)            
 
@@ -27 +29 @@
       trace_=.TRUE.
       IF (PRESENT(trace)) trace_ = trace
+      CALL xios_logical_to_bool_0d(trace_)
       CALL cxios_timer_suspend(timer_id, len(timer_id),trace_)