240308.214347.HKT fix a failure of 9test

fortlab · Mar 8, 2024 · 5bd60c7 · 5bd60c7
1 parent e6620e8
commit 5bd60c7
Showing 1 changed file with 7 additions and 18 deletions.
diff --git a/fortran/tests/tools/9src b/fortran/tests/tools/9src
@@ -27,25 +27,14 @@ fi
 if [[ -f "$CONSTS" ]] ; then
     sed -i "/end module consts_mod/d" "$CONSTS"
 
-    STR="use, intrinsic :: iso_fortran_env, only : INT16, INT32, INT64, REAL32, REAL64, REAL128"
+    STR="use, intrinsic :: iso_fortran_env, only : INT16, INT32, INT64, SP => REAL32, DP => REAL64"
     sed -i "/$STR/d" "$CONSTS"
-    OLD_STR="integer, parameter :: SP = REAL32"
-    NEW_STR="integer, parameter :: SP = kind(0.0)"
-    sed -i "s/$OLD_STR/$NEW_STR/" "$CONSTS"
-    OLD_STR="integer, parameter :: DP = REAL64"
-    NEW_STR="integer, parameter :: DP = kind(0.0D0)"
-    sed -i "s/$OLD_STR/$NEW_STR/" "$CONSTS"
-    OLD_STR="integer, parameter :: QP = REAL128"
-    NEW_STR="integer, parameter :: QP = selected_real_kind(p=30)"
-    sed -i "s/$OLD_STR/$NEW_STR/" "$CONSTS"
-    OLD_STR="integer, parameter :: RP = REAL32"
-    NEW_STR="integer, parameter :: RP = kind(0.0)"
-    sed -i "s/$OLD_STR/$NEW_STR/" "$CONSTS"
-    OLD_STR="integer, parameter :: RP = REAL64"
-    NEW_STR="integer, parameter :: RP = kind(0.0D0)"
-    sed -i "s/$OLD_STR/$NEW_STR/" "$CONSTS"
-    OLD_STR="integer, parameter :: RP = REAL128"
-    NEW_STR="integer, parameter :: RP = selected_real_kind(p=30)"
+    STR="HP => REAL16"
+    sed -i "/$STR/d" "$CONSTS"
+    STR="QP => REAL128"
+    sed -i "/$STR/d" "$CONSTS"
+    OLD_STR="! Define the real kind to be used in the Fortran code."
+    NEW_STR="$OLD_STR\ninteger, parameter :: SP = kind(0.0), DP = kind(0.0D0)\n#if PRIMA_QP_AVAILABLE\ninteger, parameter :: QP = selected_real_kind(p=30)\n#endif"
     sed -i "s/$OLD_STR/$NEW_STR/" "$CONSTS"
     OLD_STR="integer, parameter :: IK = INT16"
     NEW_STR="integer, parameter :: IK = selected_int_kind(4)"