[Bug fortran/85996] [8/9 Regression] ICE: gfc_trans_select(): Bad type for case expr.

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-valid-code
           Priority|P3                          |P4
             Status|WAITING                     |NEW
      Known to work|                            |6.4.0, 7.3.0
   Target Milestone|---                         |6.5
            Summary|f951: internal compiler     |[8/9 Regression] ICE:
                   |error: gfc_trans_select():  |gfc_trans_select(): Bad
                   |Bad type for case expr.     |type for case expr.
      Known to fail|                            |6.4.1, 7.3.1, 8.1.0, 9.0

--- Comment #3 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Nice reduction!-)

The ICE appeared between revisions r258235 (2018-03-04, OK) and r258362
(2018-03-08, ICE) and the commit has been back ported to the GCC6 and GCC7
branches.

(lldb) p code->expr1->ts.type
(bt) $0 = BT_UNKNOWN
(lldb) bt
* thread #1, queue = 'com.apple.main-thread', stop reason = breakpoint 1.1
  * frame #0: 0x00000001001707f0 f951`gfc_trans_select(code=0x0000000143006230)
at trans-stmt.c:3310
    frame #1: 0x00000001000e9748 f951`::trans_code(code=0x0000000143006230,
cond=0x0000000000000000) at trans.c:1940
    frame #2: 0x0000000100119683
f951`gfc_generate_function_code(ns=<unavailable>) at trans-decl.c:6514
    frame #3: 0x00000001000ee1d2
f951`gfc_generate_module_code(ns=0x0000000145003000) at trans.c:2222
    frame #4: 0x000000010009ad2c f951`gfc_parse_file() at parse.c:6108
    frame #5: 0x000000010009acc3 f951`gfc_parse_file()
    frame #6: 0x00000001000e648c f951`::gfc_be_parse_file() at f95-lang.c:204
    frame #7: 0x0000000100c4667a f951`::compile_file() at toplev.c:455
    frame #8: 0x00000001012a6c7b f951`toplev::main(int, char**) at
toplev.c:2133
    frame #9: 0x00000001012a87be f951`main(argc=2, argv=0x00007ffeefbff250) at
main.c:39