intent in c binding

Nicholaswogan · May 3, 2024 · 56e8019 · 56e8019
1 parent 7ae6508
commit 56e8019
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/equilibrate/fortran/equilibrate_c_api.f90 b/equilibrate/fortran/equilibrate_c_api.f90
@@ -25,7 +25,7 @@ subroutine allocate_chemequianalysis(ptr) bind(c)
 
   subroutine deallocate_chemequianalysis(ptr) bind(c)
     use equilibrate, only: ChemEquiAnalysis
-    type(c_ptr), intent(out) :: ptr
+    type(c_ptr), intent(in) :: ptr
     type(ChemEquiAnalysis), pointer :: cea
     call c_f_pointer(ptr, cea)
     deallocate(cea)