Add __GFORTRAN__

MODFLOW-USGS · Jan 24, 2025 · eea159a · eea159a
1 parent 4b6f0dd
commit eea159a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Utilities/Memory/Memory.F90 b/src/Utilities/Memory/Memory.F90
@@ -142,7 +142,7 @@ subroutine mt_deallocate(this)
 
       call c_f_pointer(cptr, astr1d, [this%isize * this%element_size])
 
-#if __GNUC__ < 13
+#if __GFORTRAN__  &&__GNUC__ < 13
       if (this%master) deallocate (astr1d)
 #else
       if (this%master) deallocate (this%astr1d)