diff --git a/test/prif_co_reduce_test_m.F90 b/test/prif_co_reduce_test_m.F90 index 49b3b3f7..f5a9b6de 100644 --- a/test/prif_co_reduce_test_m.F90 +++ b/test/prif_co_reduce_test_m.F90 @@ -91,8 +91,7 @@ function alphabetically_first_string() result(test_passes) end associate call prif_num_images(num_images=num_imgs) - !expected_name = minval(names(1:min(num_imgs, size(names)))) ! this exposes a flang bug - expected_name = "betty" + expected_name = minval(names(1:min(num_imgs, size(names)))) ! this exposes a flang bug test_passes = all(expected_name == my_name) contains