Fix more syntax for ifort's malloc/free

openmopac · Nov 7, 2024 · 4e0bf5c · 4e0bf5c
1 parent ca9c1c8
commit 4e0bf5c
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/interface/mopac_api_createdestroy.F90 b/src/interface/mopac_api_createdestroy.F90
@@ -117,7 +117,7 @@ module function create_int(size)
 #else
     integer(c_intptr_t) :: dummy
     integer(c_int) :: mold
-    dummy = malloc(c_sizeof(mold)*size(1))
+    dummy = malloc(c_sizeof(mold)*size)
     create_int = transfer(dummy, create_int)
 #endif
   end function create_int
@@ -137,7 +137,7 @@ module function create_int2(size, size2)
 #else
     integer(c_intptr_t) :: dummy
     integer(c_int) :: mold
-    dummy = malloc(c_sizeof(mold)*size(1)*size(2))
+    dummy = malloc(c_sizeof(mold)*size*size2)
     create_int2 = transfer(dummy, create_int2)
 #endif
   end function create_int2
@@ -156,7 +156,7 @@ module function create_real(size)
 #else
     integer(c_intptr_t) :: dummy
     real(c_double) :: mold
-    dummy = malloc(c_sizeof(mold)*size(1))
+    dummy = malloc(c_sizeof(mold)*size)
     create_real = transfer(dummy, create_real)
 #endif
   end function create_real