https://gcc.gnu.org/bugzilla/show_bug.cgi?id=109701
--- Comment #6 from tommelt <thomas.meltzer1 at gmail dot com> --- Thank you. Interestingly, I tried your suggestion: "!$omp target teams distribute parallel do simd if(target:is_GPU) reduction(max:max_diff) collapse(2)" It works for gfortran v 12.2.0 but it does not work for: * gfortran v 11.3.0 or; * gfortran v 10.3.0