test_memory

test/test_equilibrate.f90

@@ -3,6 +3,7 @@ program main
   implicit none
 
   call test()
+  call test_memory()
 
 contains
 
@@ -312,6 +313,32 @@ subroutine test()
 
   end subroutine
 
+  subroutine test_memory()
+    type(ChemEquiAnalysis), pointer :: cea
+    character(:), allocatable :: err
+
+    allocate(cea)
+
+    cea = ChemEquiAnalysis('../test/thermo_easy_chem_simp_own.yaml', err=err)
+    if (allocated(err)) then
+      deallocate(cea)
+      print*,err
+      stop 1
+    endif
+
+    cea = ChemEquiAnalysis('../test/thermo_easy_chem_simp_own.yaml', err=err)
+    if (allocated(err)) then
+      deallocate(cea)
+      print*,err
+      stop 1
+    endif
+
+    deallocate(cea)
+
+    print*,'test_memory passed.'
+
+  end subroutine
+
   !> coppied from fortran stdlib v0.2.0
   elemental function is_close(a, b, tol, abs_tol, equal_nan) result(close)
     use, intrinsic :: ieee_arithmetic, only: ieee_is_nan