[Bug fortran/79383] USE statement error

[dominiq at lps dot ens.fr]

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

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

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2017-02-06
     Ever confirmed|0                           |1

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
When compiling the test I get an ICE

f951: internal compiler error: in gfc_match_use, at fortran/module.c:693

The backtrace is

    frame #11: 0x00000001000716d1 f951`gfc_match_use() + 1281 at module.c:693
    frame #12: 0x000000010008875f f951`::match_word(str=<unavailable>,
subr=<unavailable>, old_locus=0x00007fff5fbfedf0)(), locus *) + 15 at
parse.c:65
    frame #13: 0x000000010008bb98 f951`::decode_statement() + 1800 at
parse.c:322
    frame #14: 0x000000010008d323 f951`::next_statement() + 259 at parse.c:1222
    frame #15: 0x0000000100090ce5 f951`::parse_spec(st=ST_NONE) + 6101 at
parse.c:3642
    frame #16: 0x000000010009320b f951`::parse_progunit(st=<unavailable>) + 43
at parse.c:5628
    frame #17: 0x0000000100094c3c f951`gfc_parse_file() + 1164 at parse.c:6137
    frame #18: 0x00000001000dcdf7 f951`::gfc_be_parse_file() + 71 at
f95-lang.c:204
    frame #19: 0x0000000100a3214a f951`::compile_file() + 58 at toplev.c:463
    frame #20: 0x0000000100e5f1e3 f951`toplev::main(this=0x00007fff5fbff2b0,
argc=<unavailable>, argv=<unavailable>) + 3763 at toplev.c:1983
    frame #21: 0x0000000100e60709 f951`main(argc=2, argv=0x00007fff5fbff2f8) +
41 at main.c:39