From 56e80193fb5064698500d4041102456852baf379 Mon Sep 17 00:00:00 2001 From: Nick Wogan Date: Fri, 3 May 2024 07:26:38 -0700 Subject: [PATCH] intent in c binding --- equilibrate/fortran/equilibrate_c_api.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)