fix test

Nicholaswogan · Apr 29, 2024 · 2ccdc23 · 2ccdc23
1 parent e2590e4
commit 2ccdc23
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/test/test_equilibrate.f90 b/test/test_equilibrate.f90
@@ -1,5 +1,5 @@
 program main
-  use equilibrate, only: ChemEquiAnalysis, dp, reac_str_len, atom_str_len
+  use equilibrate, only: ChemEquiAnalysis, dp, s_str_len
   implicit none
 
   call test()
@@ -9,8 +9,8 @@ program main
   subroutine test()
     type(ChemEquiAnalysis) :: cea, cea2
     character(:), allocatable :: err
-    character(reac_str_len), allocatable :: species(:)
-    character(atom_str_len), allocatable :: atoms(:)
+    character(s_str_len), allocatable :: species(:)
+    character(s_str_len), allocatable :: atoms(:)
     real(dp), allocatable :: X(:), correct_answer(:)
     integer :: i