fixed warnings in pio_iosystem_tests2.F90.in

rfiorella · Jun 25, 2019 · 860807c · 860807c
1 parent b1eec45
commit 860807c
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/tests/general/pio_iosystem_tests2.F90.in b/tests/general/pio_iosystem_tests2.F90.in
@@ -97,13 +97,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
@@ -148,7 +146,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
@@ -221,7 +219,7 @@ PIO_TF_AUTO_TEST_SUB_BEGIN three_files_two_iosystems_odd_even
     PIO_TF_CHECK_ERR(ret, "Checking contents of file failed :" // fname)
 
     ! Make sure that we can still check the contents of the file
-    call check_file(odd_even_comm, odd_even_iosys, iotypes(i), pio_file, &
+    call check_file(odd_even_comm, pio_file, &
                     fname, attname, dimname, ret)
     PIO_TF_CHECK_ERR(ret, "Checking (second) contents of file failed :" // fname)