uppercase change

brtnfld · Jan 18, 2024 · 4123b46 · 4123b46
1 parent fff66b1
commit 4123b46
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fortran/test/tH5Sselect.F90 b/fortran/test/tH5Sselect.F90
@@ -412,7 +412,7 @@ SUBROUTINE test_select_iter(cleanup, total_error)
           ENDDO
        ELSE IF (sel_type .eq. H5S_SEL_HYPERSLABS_F)THEN ! Hyperslab selection
           CALL VERIFY("H5Ssel_iter_get_seq_list_f", nseq, 4_SIZE_T, total_error)
-          CALL verify("H5Ssel_iter_get_seq_list_f", nbytes, 16_SIZE_T, total_error)
+          CALL VERIFY("H5Ssel_iter_get_seq_list_f", nbytes, 16_SIZE_T, total_error)
           CALL VERIFY("H5Ssel_iter_get_seq_list_f", off(NUMP+1), INT(-99,HSIZE_T), total_error)
           CALL VERIFY("H5Ssel_iter_get_seq_list_f", ilen(NUMP+1), INT(-99,HSIZE_T), total_error)
           DO i = 1, NUMP