From 475ea9fba3ca70e74ca94df8440d603b86facd4a Mon Sep 17 00:00:00 2001 From: PUNITH K Date: Sun, 16 Nov 2025 19:40:32 +0530 Subject: [PATCH] Fix flaky loadtxt test for int32 by adding sleep after savetxt. . Added sleep calls to test_loadtxt.f90 to introduce delays between file operations. because before file was being read even before it was writen and closed --- test/io/test_loadtxt.f90 | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/test/io/test_loadtxt.f90 b/test/io/test_loadtxt.f90 index 88277fcf3..af1667174 100644 --- a/test/io/test_loadtxt.f90 +++ b/test/io/test_loadtxt.f90 @@ -41,17 +41,21 @@ subroutine test_loadtxt_int32(error) call random_number(harvest) input = int(harvest * 100) call savetxt('test_int32.txt', input) + call sleep(1) call loadtxt('test_int32.txt', expected) call check(error, all(input == expected),'Default list directed read failed') if (allocated(error)) return call loadtxt('test_int32.txt', expected, fmt='*') + call sleep(1) call check(error, all(input == expected),'User specified list directed read faile') if (allocated(error)) return call savetxt('test_int32.txt', input, delimiter=',') + call sleep(1) call loadtxt('test_int32.txt', expected, delimiter=',') call check(error, all(input == expected),'User specified delimiter `,` read failed') if (allocated(error)) return call savetxt('test_int32.txt', input, delimiter='-') + call sleep(1) call loadtxt('test_int32.txt', expected, delimiter='-') call check(error, all(input == expected),'User specified delimiter `-` read failed') if (allocated(error)) return @@ -73,6 +77,7 @@ subroutine test_loadtxt_sp(error) call random_number(input) input = input - 0.5 call savetxt('test_sp.txt', input) + call sleep(1) call loadtxt('test_sp.txt', expected) call check(error, all(input == expected),'Default format read failed') if (allocated(error)) return @@ -83,10 +88,12 @@ subroutine test_loadtxt_sp(error) call check(error, all(input == expected),'User specified format failed') if (allocated(error)) return call savetxt('test_sp.txt', input, delimiter=',') + call sleep(1) call loadtxt('test_sp.txt', expected, delimiter=',') call check(error, all(input == expected),'User specified delimiter `,` read failed') if (allocated(error)) return call savetxt('test_sp.txt', input, delimiter=';') + call sleep(1) call loadtxt('test_sp.txt', expected, delimiter=';') call check(error, all(input == expected),'User specified delimiter `;` read failed') if (allocated(error)) return @@ -165,6 +172,7 @@ subroutine test_loadtxt_dp(error) call random_number(input) input = input - 0.5 call savetxt('test_dp.txt', input) + call sleep(1) call loadtxt('test_dp.txt', expected) call check(error, all(input == expected),'Default format read failed') if (allocated(error)) return @@ -175,6 +183,7 @@ subroutine test_loadtxt_dp(error) call check(error, all(input == expected),'User specified format failed') if (allocated(error)) return call savetxt('test_dp.txt', input, delimiter=',') + call sleep(1) call loadtxt('test_dp.txt', expected, delimiter=',') call check(error, all(input == expected),'User specified delimiter read failed') if (allocated(error)) return @@ -197,6 +206,7 @@ subroutine test_loadtxt_dp_max_skip(error) call random_number(input) input = input - 0.5 call savetxt('test_dp_max_skip.txt', input) + call sleep(1) call loadtxt('test_dp_max_skip.txt', expected, skiprows=m, max_rows=n) call check(error, all(input(m+1:min(n+m,10),:) == expected),'Default format read failed') if (allocated(error)) return @@ -227,6 +237,7 @@ subroutine test_loadtxt_dp_huge(error) call random_number(input) input = (input - 0.5) * huge(input) call savetxt('test_dp_huge.txt', input) + call sleep(1) call loadtxt('test_dp_huge.txt', expected) call check(error, all(input == expected),'Default format read failed') if (allocated(error)) return @@ -255,6 +266,7 @@ subroutine test_loadtxt_dp_tiny(error) call random_number(input) input = (input - 0.5) * tiny(input) call savetxt('test_dp_tiny.txt', input) + call sleep(1) call loadtxt('test_dp_tiny.txt', expected) call check(error, all(input == expected),'Default format read failed') if (allocated(error)) return @@ -287,16 +299,19 @@ subroutine test_loadtxt_complex(error) call random_number(im) input = cmplx(re, im) call savetxt('test_complex.txt', input) + call sleep(1) call loadtxt('test_complex.txt', expected) call check(error, all(input == expected)) call loadtxt('test_complex.txt', expected, fmt="(*"//FMT_COMPLEX_dp(1:len(FMT_COMPLEX_dp)-1)//",1x))") call check(error, all(input == expected)) if (allocated(error)) return call savetxt('test_complex.txt', input, delimiter=',') + call sleep(1) call loadtxt('test_complex.txt', expected, delimiter=',') call check(error, all(input == expected)) if (allocated(error)) return call savetxt('test_complex.txt', input, delimiter=';') + call sleep(1) call loadtxt('test_complex.txt', expected, delimiter=';') call check(error, all(input == expected)) if (allocated(error)) return