Add a pragma guard around OpenMP directives to fix a bug with GNU10.1…

…/10.2 (#22)
ecmwf-ifs · Jan 13, 2023 · 8f194d0 · 8f194d0
1 parent 7a002ba
commit 8f194d0
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/trans/internal/ltinv_ctlad_mod.F90 b/src/trans/internal/ltinv_ctlad_mod.F90
@@ -98,15 +98,20 @@ SUBROUTINE LTINV_CTLAD(KF_OUT_LT,KF_UV,KF_SCALARS,KF_SCDERS,&
 CALL GSTATS(104,0)
 CALL GSTATS(1648,0)
 IF(KF_OUT_LT > 0) THEN
+! Bug in gcc <= 10.2, see https://github.com/ecmwf-ifs/ectrans/issues/20
+#if !(defined(__GFORTRAN__) && __GNUC__ == 10 && __GNUC_MINOR__ <= 2)
 !$OMP PARALLEL DO SCHEDULE(DYNAMIC,1) PRIVATE(JM,IM)
+#endif
   DO JM=1,D%NUMP
     IM = D%MYMS(JM)
     CALL LTINVAD(IM,JM,KF_OUT_LT,KF_UV,KF_SCALARS,KF_SCDERS,ILEI2,IDIM1,&
      & PSPVOR,PSPDIV,PSPSCALAR,&
      & PSPSC3A,PSPSC3B,PSPSC2 , &
      & KFLDPTRUV,KFLDPTRSC,FSPGL_PROC)
   ENDDO
+#if !(defined(__GFORTRAN__) && __GNUC__ == 10 && __GNUC_MINOR__ <= 2)
 !$OMP END PARALLEL DO
+#endif
 ENDIF
 CALL GSTATS(1648,1)