Merge pull request #471 from NOAA-EMC/ejh_yet_more_borts

yet another bort test
NOAA-EMC · May 1, 2023 · f487cbe · f487cbe
2 parents 86d5ba8 + 3a93ad9
commit f487cbe
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/test/run_test_bort.sh b/test/run_test_bort.sh
@@ -184,6 +184,7 @@ for kind in "4" "d"; do
     (./test_bort_$kind ufbcup 1) && exit 1
     (./test_bort_$kind ufbcup 2) && exit 1
     (./test_bort_$kind ufbcup 3) && exit 1
+    (./test_bort_$kind ufbcup 4) && exit 1
 
     # Check ufbdmp().
     (./test_bort_$kind ufbdmp 1) && exit 1

diff --git a/test/test_bort.F90 b/test/test_bort.F90
@@ -534,11 +534,12 @@ program test_bort
         call openbf(12, 'IN', 10)
         call ufbcup(12, 0)
      elseif (test_case .eq. '4') then
-        open(unit = 12, file = 'testfiles/IN_2', form = 'UNFORMATTED', iostat = ios)
-        if (ios .ne. 0) stop 3
-        call openbf(12, 'IN', 10)
-        call readns(12, char_val_8, jdate, iret)
-        call ufbcup(12, 0)
+        open(unit = 11, file = 'testfiles/IN_9', form ='unformatted')
+        call openbf(11, 'IN', 11)
+        open(unit = 12, file = 'test_ufbcup_out', form ='unformatted')
+        call openbf(12, 'IN', 11)
+        call readmg(11, char_val_8, jdate, iret)
+        call ufbcup(11, 12)
      endif
   elseif (sub_name .eq. 'ufbdmp') then
      if (test_case .eq. '1') then