[Bug fortran/85996] New: f951: internal compiler error: gfc_trans_select(): Bad type for case expr.

["jean-michel.beuken at uclouvain dot be" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85996

            Bug ID: 85996
           Summary: f951: internal compiler error: gfc_trans_select(): Bad
                    type for case expr.
           Product: gcc
           Version: 8.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: jean-michel.beuken at uclouvain dot be
  Target Milestone: ---

Created attachment 44210
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=44210&action=edit
source (http://nn-online.org/code/strings/strings-1.3.tar.gz)

Linux kernel 3.10 CentOS 7.4

gfortran  --version
GNU Fortran (GCC) 8.1.0

tar xzf strings-1.3.tar.gz
cd strings-1.3

gfortran -Wall -Wextra -c m_strings.F95
f951: internal compiler error: gfc_trans_select(): Bad type for case expr.
0x60128f gfc_internal_error(char const*, ...)
        ../../gcc-8.1.0/gcc/fortran/error.c:1358
0x70fe59 gfc_trans_select(gfc_code*)
        ../../gcc-8.1.0/gcc/fortran/trans-stmt.c:3346
0x6a2ef7 trans_code
        ../../gcc-8.1.0/gcc/fortran/trans.c:1940
0x6c92cb gfc_generate_function_code(gfc_namespace*)
        ../../gcc-8.1.0/gcc/fortran/trans-decl.c:6507
0x6a6879 gfc_generate_module_code(gfc_namespace*)
        ../../gcc-8.1.0/gcc/fortran/trans.c:2222
0x659f4b translate_all_program_units
        ../../gcc-8.1.0/gcc/fortran/parse.c:6108
0x659f4b gfc_parse_file()
        ../../gcc-8.1.0/gcc/fortran/parse.c:6324
0x6a02ef gfc_be_parse_file
        ../../gcc-8.1.0/gcc/fortran/f95-lang.c:204


REM : well compiled with GCC 6.4.0 and 7.1.2