[patch, committed] Fix PR 88073

[Thomas Koenig]

Hello world,

using the combined superpowers of Captain Obvious and Lieutenant Simple,
I have committed the attached patch, which fixes a regression, as
r266251, after regression-testing. I will backport to 8 and 7 in the
next few days.

Regards

	Thomas

2018-11-18  Thomas Koenig  <tkoenig@gcc.gnu.org>

         PR fortran/88073
         * frontend-passes.c (combine_array_constructor): Do not do
         anything if in a WHERE statement.

2018-11-18  Thomas Koenig  <tkoenig@gcc.gnu.org>

         PR fortran/88073
         * gfortran.dg/where_7.f90: New test.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: p1.diff
Type: text/x-patch
Size: 412 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20181118/8b0d5540/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: where_7.f90
Type: text/x-fortran
Size: 664 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20181118/8b0d5540/attachment-0001.bin>