From e47bb099ac9331990d9cd059343cc5d4adb3102f Mon Sep 17 00:00:00 2001 From: Helen Kershaw Date: Fri, 29 Sep 2023 11:53:47 -0600 Subject: [PATCH] removed loop because 1 test is sufficent to find the compiler bug #495 --- developer_tests/random_seq/test_ran_unif.f90 | 48 ++++---------------- 1 file changed, 8 insertions(+), 40 deletions(-) diff --git a/developer_tests/random_seq/test_ran_unif.f90 b/developer_tests/random_seq/test_ran_unif.f90 index 1548c5d227..a8eefdf391 100644 --- a/developer_tests/random_seq/test_ran_unif.f90 +++ b/developer_tests/random_seq/test_ran_unif.f90 @@ -18,51 +18,19 @@ program test_ran_unif type (random_seq_type) :: r -integer :: j, i, n, f, seq -logical :: write_this_one -character(len=50) :: formf = '(I12,4(F16.5))' -character(len=256) :: fname, temp - -logical :: write_me = .true. ! if true, write each distribution into a file for later diagnostics -integer :: write_limit = 1000000 ! but only if rep count is not greater than this limit - -! to add more tests or change the parameters, specify a test count -! and update the sets of inputs here: - -integer, parameter :: ntests = 1 +integer :: seq call initialize_utilities('test_ran_unif') -write(*, *) '' - -do j=1, ntests - - call init_random_seq(r, 5) +call init_random_seq(r, 5) - n = j - - ! save all values in a file for post-plotting? - write_this_one = (write_me .and. n <= write_limit) - - if (write_this_one) then - write(temp, "(A,I10)") "ran_unif_", n - call squeeze_out_blanks(temp, fname) - f = open_file(fname) - endif - - seq = ran_twist(r) +seq = ran_twist(r) - if (seq == 953453411) then - write(*,*) 'ran_unif test: PASS' - if (write_this_one) write(f,*) 'PASS' - else - write(*,*) 'ran_unif test: FAIL' - if (write_this_one) write(f,*) 'FAIL' - endif - - if (write_this_one) call close_file(f) - -enddo +if (seq == 953453411) then + write(*,*) 'ran_unif test: PASS' +else + write(*,*) 'ran_unif test: FAIL' +endif call finalize_utilities()