From 050f2e51e8b3ccc197ac3976aaff590f180600b0 Mon Sep 17 00:00:00 2001
From: zaikunzhang <zaikunzhang@gmail.com>
Date: Sat, 27 Jan 2024 04:47:23 +0800
Subject: [PATCH] 240127.044723.HKT revise preproc.f90 for debugging before
 verify_small

---
 .github/workflows/verify_small.yml | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/.github/workflows/verify_small.yml b/.github/workflows/verify_small.yml
index f22113fdbf..6ca1664874 100644
--- a/.github/workflows/verify_small.yml
+++ b/.github/workflows/verify_small.yml
@@ -61,6 +61,15 @@ jobs:
           $SEDI 's|\(prob.options = test_options;\)|\1\nformat long; prob.options|' isequiv.m
           cat isequiv.m
 
+      # Revise preproc.f90 for debugging.
+      - name: Revise preproc.f90
+        shell: bash
+        run: |
+          cd fortran/common || exit 42
+          $SEDI "s|\(rhoend = .*$\)|\1\nwrite(18, \*) 'rhoend, rhobeg = ', rhoend, rhobeg|" preproc.f90
+          $SEDI "s|\(end subroutine preproc\)|close(18)\n\1|" preproc.f90
+          cat preproc.f90
+
       # Revise cobyla/trustregion.f90 for debugging.
       - name: Revise cobyla/trustregion.f90
         shell: bash