https://gcc.gnu.org/bugzilla/show_bug.cgi?id=90380
--- Comment #19 from Martin Liška <marxin at gcc dot gnu.org> ---
(In reply to Victor from comment #18)
> Created attachment 46330 [details]
> -fdump-tree-original?
>
> Martin,
>
> this is the first time I use this flag. Is the attached file the one you are
> asking for?
Yes, you did it great ;)
>
> If not, please, let me know how to obtain what you are looking for.
Apparently, it's clean up code that is present in multiple functions:
while (1)
{
{
logical(kind=4) D.6324;
D.6324 = idx > D.6321;
if (D.6324) goto L.2;
if ((integer(kind=8)) (SAVE_EXPR <idx> <= 0))
{
_gfortran_runtime_error_at (&"At line 688 of file
/tmp/fempar-experimental/Sources/Lib/Geometry/Triangulation/p4est_triangulation.f90"[1]{lb:
1 sz: 1}, &"Index \'%ld\' of dimension 1 of array \'strides\' below lower bound
of %ld"[1]{lb: 1 sz: 1}, SAVE_EXPR <idx>, 1);
}
if ((integer(kind=8)) (SAVE_EXPR <idx> > ubound.2))
{
_gfortran_runtime_error_at (&"At line 688 of file
/tmp/fempar-experimental/Sources/Lib/Geometry/Triangulation/p4est_triangulation.f90"[1]{lb:
1 sz: 1}, &"Index \'%ld\' of dimension 1 of array \'strides\' above upper bound
of %ld"[1]{lb: 1 sz: 1}, SAVE_EXPR <idx>, ubound.2);
}
(*strides)[NON_LVALUE_EXPR <SAVE_EXPR <idx>> + -1] =
array->dim[idx + -1].stride;
...
}
Anyway we've got a patch that I'll install probably tomorrow.
I'm going to backport that to GCC 8.x branch and GCC 9.x branch.
Btw. have you thought about using the fresh new release 9.1.0?
