[Bug fortran/81416] OpenMP craches if large arrays passed

[bz0815 at tirol dot com]

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

--- Comment #2 from bz0815 at tirol dot com ---
(In reply to Andrew Pinski from comment #1)
> Try increasing your stack limit. I suspect it is too low. With -fopenmp
> turned on causes arrays to be always stored on the stack .

Many thanks for the hint, Andrew. Increasing the stack limit by
-Wl,--stack,16777216 solves the issue. -fopenmp implies -frecursive and
-frecursive forces all local arrays to be allocated on the stack. But which
array is local? Possibly the dummy argument of subroutine Print_Info. Is
gfortran passing this array really by value although its intent is out?