classification now correctly defined as character in utest

ralna · Sep 29, 2024 · b716b04 · b716b04
1 parent ac3f0d1
commit b716b04
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/test/utest.F90 b/src/test/utest.F90
@@ -37,6 +37,7 @@ PROGRAM CUTEST_test_unconstrained_tools
       REAL ( KIND = rp_ ) :: f
       LOGICAL :: grad, byrows, goth
       CHARACTER ( len = 10 ) ::  p_name
+      CHARACTER ( len = 30 ) :: classification
       INTEGER ( KIND = ip_ ), ALLOCATABLE, DIMENSION( : ) :: X_type
       INTEGER ( KIND = ip_ ), ALLOCATABLE, DIMENSION( : ) :: H_row, H_col
       INTEGER ( KIND = ip_ ), ALLOCATABLE, DIMENSION( : ) :: HE_row, HE_row_ptr