[Bug fortran/99171] [10 Regression] Optional procedure call inside Open MP parallel loop produces Segmentation Fault

[dominiq at lps dot ens.fr via Gcc-bugs]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Last reconfirmed|                            |2021-02-20
     Ever confirmed|0                           |1
             Status|UNCONFIRMED                 |NEW

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Confirmed on GCC10 and 11. With GCC9 the run time give

 When optional function is called without Open MP directive:
 Printing Something
 When optional function is called inside Open MP directive:
 Printing Something
 Printing Something
 Printing Something
 Printing Something
 Printing Something
 Printing Something
 Printing Something
 Printing Something
 Printing Something
 Printing Something
 Printing Something
 Printing Something
 Printing Something
 Printing Something
 Printing Something
 Printing Something