Hello world,

the attached patch fixes a regression introduced by my recent patch for
PR 87689, where the alternate return arguments were not handled
correctly.

Some experimentation resulted in a test case which actually segfaulted
on a normal compiler, instead of just being visible on an instrumened
one.  The test case also checks that the alternate return runs
correctly (and uses the "dg-do  run" hack :-)

I also checked this with -flto and by inspecting the output of
-fdump-fortran-original.

Thanks to Martin Liska for the bug report.

Regression-tested.  OK for trunk?

Regards

        Thomas

2019-02-25  Thomas Koenig  <tkoe...@gcc.gnu.org>

        PR fortran/89496
        * trans-types.c (get_formal_from_actual_arglist): If
        the actual arglist has no expression, the corresponding
        formal arglist is an alternate return.

2019-02-25  Thomas Koenig  <tkoe...@gcc.gnu.org>

        PR fortran/89496
        * gfortran.dg/altreturn_9_0.f90: New file.
        * gfortran.dg/altreturn_9_1.f90: New file.

Reply via email to