[flang] Generate fir.do_loop reduce from DO CONCURRENT REDUCE clause#94718