diff --git a/test/run_test_bort.sh b/test/run_test_bort.sh
index 754533b4..789d7f1c 100644
--- 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
index 9b6bbacd..e3639912 100644
--- 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