[Committed] Fix PR middle-end/32931: FORALL and WHERE give an ICE with -m64

["Andrew Pinski" <pinskia at gmail dot com>]

Hi,
  The problem here is that we fold logical8 == 0 (which has a type of
logical1) into !logical8 and it does not have a cast which could cause
an internal compiler error down the road inside gen_rtx_SUBREG.  The
fix is obvious, convert the inner expression to the correct type.

Applied after a bootstrap/test on i386-apple-dariwn8.10.1 with no regressions.

Thanks,
Andrew Pinski

PS I wish the type checker would have caught this.

ChangeLog:
* fold-const.c (fold_binary <case EQ_EXPR>): Convert the inner type
for TRUTH_NOT_EXPR to type.

* gfortran.fortran-torture/compile/forall-1.f90: New testcase.

Attachment: fixpr32931.diff.txt
Description: Text document