[Bug fortran/68237] ICE on invalid with submodules

[dominiq at lps dot ens.fr]

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

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

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|WAITING                     |NEW

--- Comment #7 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> This slightly changed test case should demonstrate the problem:

Confirmed, the backtrace is

Program received signal SIGSEGV, Segmentation fault.
0x00000001000288c7 in gfc_match_submod_proc () at
../../work/gcc/fortran/decl.c:7649
7649      if (sym->ts.interface->attr.function)
(gdb) bt
#0  0x00000001000288c7 in gfc_match_submod_proc () at
../../work/gcc/fortran/decl.c:7649
#1  0x0000000100082e8d in decode_statement () at
../../work/gcc/fortran/parse.c:384
#2  0x0000000100084bc5 in next_statement () at
../../work/gcc/fortran/parse.c:1075
#3  0x000000010008b0f4 in parse_contained (module=<optimized out>) at
../../work/gcc/fortran/parse.c:4990
#4  0x000000010008c1df in parse_module () at
../../work/gcc/fortran/parse.c:5390
#5  0x000000010008cc43 in gfc_parse_file () at
../../work/gcc/fortran/parse.c:5696
#6  0x00000001000d39db in gfc_be_parse_file () at
../../work/gcc/fortran/f95-lang.c:205
#7  0x0000000100aec62a in compile_file () at ../../work/gcc/toplev.c:466
#8  0x0000000100fc173c in ?? ()
#9  0x0000000100fc30f9 in main (argc=2, argv=0x7fff5fbff308) at
../../work/gcc/main.c:39