Fix bugs/warnings reported by CCE

cp2k · May 13, 2021 · a65e43c · a65e43c
1 parent 5c92432
commit a65e43c
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/sap_kind_types.F b/src/sap_kind_types.F
@@ -234,12 +234,14 @@ END SUBROUTINE alist_post_align_blk
    SUBROUTINE sap_sort(sap_int)
       TYPE(sap_int_type), DIMENSION(:), POINTER          :: sap_int
 
-      INTEGER                                            :: iac, na
+      INTEGER                                            :: iac, na, sap_int_size
 
 ! *** Set up a sorting index
 
+      sap_init_size = SIZE(sap_int)
+
 !$OMP DO
-      DO iac = 1, SIZE(sap_int)
+      DO iac = 1, sap_init_size
          IF (.NOT. ASSOCIATED(sap_int(iac)%alist)) CYCLE
          na = SIZE(sap_int(iac)%alist)
          ALLOCATE (sap_int(iac)%asort(na), sap_int(iac)%aindex(na))