diff --git a/test/run_test_bort.sh b/test/run_test_bort.sh
index 789d7f1c..554cf769 100644
--- a/test/run_test_bort.sh
+++ b/test/run_test_bort.sh
@@ -185,6 +185,9 @@ for kind in "4" "d"; do
     (./test_bort_$kind ufbcup 2) && exit 1
     (./test_bort_$kind ufbcup 3) && exit 1
     (./test_bort_$kind ufbcup 4) && exit 1
+    (./test_bort_$kind ufbcup 5) && exit 1
+    (./test_bort_$kind ufbcup 6) && exit 1
+    (./test_bort_$kind ufbcup 7) && exit 1
 
     # Check ufbdmp().
     (./test_bort_$kind ufbdmp 1) && exit 1
diff --git a/test/test_bort.F90 b/test/test_bort.F90
index e3639912..c141c213 100644
--- a/test/test_bort.F90
+++ b/test/test_bort.F90
@@ -540,6 +540,29 @@ program test_bort
         call openbf(12, 'IN', 11)
         call readmg(11, char_val_8, jdate, iret)
         call ufbcup(11, 12)
+     elseif (test_case .eq. '5') then
+        open(unit = 11, file = 'testfiles/IN_9', form ='unformatted')
+        call openbf(11, 'IN', 11)
+        open(unit = 12, file = 'test_ufbcup_out', form ='unformatted')
+        call readmg(11, char_val_8, jdate, iret)
+        call readsb(11, iret)        
+        call ufbcup(11, 12)
+     elseif (test_case .eq. '6') then
+        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 readsb(11, iret)        
+        call ufbcup(11, 12)
+     elseif (test_case .eq. '7') then
+        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, 'OUT', 11)
+        call readmg(11, char_val_8, jdate, iret)
+        call readsb(11, iret)        
+        call ufbcup(11, 12)
      endif
   elseif (sub_name .eq. 'ufbdmp') then
      if (test_case .eq. '1') then