[patch, fortran] Fix PR 78238, ICE with SELECT TYPE with -fdefault-integer-8

[Thomas Koenig]

Hello world,

the attached patch fixes a 7/8 regression with SELECT TYPE where
the constant had the wrong type with -fdefault-integer-8.

Regression-tested. OK for trunk and gcc-7?

Regards

	Thomas

2018-01-24  Thomas Koenig  <tkoenig@gcc.gnu.org>

         PR fortran/78238
         * gfortran.h (gfc_integer_4_kind): Define.
         * resolve.c (resolve_select_type): Make sure that the
         kind of c->high is gfc_integer_4_kind.

2018-01-24  Thomas Koenig  <tkoenig@gcc.gnu.org>

         PR fortran/78238
         * gfortran.dg/select_type_40.f90: New test.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: p1.diff
Type: text/x-patch
Size: 1320 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20180224/3d480a03/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: select_type_40.f90
Type: text/x-fortran
Size: 229 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20180224/3d480a03/attachment-0001.bin>