[Bug fortran/103039] [12 Regression] Segfault with openmp block within a select type block since r12-1016-g0e3b3b77e13cac76

[jakub at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103039

--- Comment #8 from Jakub Jelinek <jakub at gcc dot gnu.org> ---
So it means the firstprivate clause is added implicitly during gimplification
(with OMP_CLAUSE_FIRSTPRIVATE_IMPLICIT?) for it.
If we want to firstprivatize just the pointer and not what it points to,
perhaps we should arrange for OMP_CLAUSE_FIRSTPRIVATE_NO_REFERENCE to be set on
it and then take it into account in gfc_omp_clause_copy_ctor etc. and just do
what we used to do before (i.e. copy the pointer and nothing else).