https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103039
--- Comment #4 from martin ---
Is there any chance of fixing this regression (in particular the associate
block variant) till gfortran-12 release? Having an openmp block within an
associate block should not be that uncommon in modern code, right
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103039
--- Comment #3 from martin ---
Created attachment 51722
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=51722&action=edit
seemingly same problem but with associate instead of select type
A similar problem with associate shows the same prob
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103039
--- Comment #2 from Martin Liška ---
Started with r12-1016-g0e3b3b77e13cac76.
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103039
--- Comment #1 from martin ---
The warning which is shown during compilation is:
seltype.f90:16:59:
16 | !$omp parallel do default(shared) private(k) reduction(+:s)
| ^
Warning: