diff --git a/equilibrate/fortran/equilibrate_c_api.f90 b/equilibrate/fortran/equilibrate_c_api.f90
index 88678bc..40a37ad 100644
--- 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)