diff --git a/tests/general/pio_iosystem_tests3.F90.in b/tests/general/pio_iosystem_tests3.F90.in
index 66c25690e1e..fad87a4beb5 100644
--- a/tests/general/pio_iosystem_tests3.F90.in
+++ b/tests/general/pio_iosystem_tests3.F90.in
@@ -113,13 +113,11 @@ END SUBROUTINE create_file
 ! Check the contents of file : Check the
 ! global attribute 'filename' (should be equal to the
 ! name of the file, fname)
-SUBROUTINE check_file(comm, iosys, iotype, pio_file, fname, attname, dimname, ret)
+SUBROUTINE check_file(comm, pio_file, fname, attname, dimname, ret)
     use pio_tutil
     implicit none
 
     integer, intent(in) :: comm
-    type(iosystem_desc_t), intent(inout) :: iosys
-    integer, intent(in) :: iotype
     type(file_desc_t), intent(inout) :: pio_file
     character(len=*), intent(in) :: fname
     character(len=*), intent(in) :: attname
@@ -164,7 +162,7 @@ SUBROUTINE open_and_check_file(comm, iosys, iotype, pio_file, fname, &
     ret = PIO_openfile(iosys, pio_file, iotype, fname, PIO_write)
     PIO_TF_CHECK_ERR(ret, comm, "Failed to open:" // fname)
 
-    call check_file(comm, iosys, iotype, pio_file, fname, attname, dimname, ret)
+    call check_file(comm, pio_file, fname, attname, dimname, ret)
     PIO_TF_CHECK_ERR(ret, comm, "Checking contents of file failed:" // fname)
 
     if(.not. disable_fclose) then
@@ -257,8 +255,8 @@ PIO_TF_AUTO_TEST_SUB_BEGIN three_files_two_iosystems_with_overlap
         PIO_TF_CHECK_ERR(ret, overlapped_comms(j), "Checking contents of file failed :" // fname)
 
         ! Make sure that we can still check the contents of the file
-        call check_file(overlapped_comms(j), overlapped_iosys(j), iotypes(i), &
-                        pio_files(j), fname, attname, dimname, ret)
+        call check_file(overlapped_comms(j), pio_files(j), fname, &
+             attname, dimname, ret)
         PIO_TF_CHECK_ERR(ret, overlapped_comms(j), "Checking (second) contents of file failed :" // fname)
       end if
     end do