https://gcc.gnu.org/bugzilla/show_bug.cgi?id=96041
--- Comment #7 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Reduced test (provided t.mod exists)
submodule (t) ts
contains
module procedure bp(s)
! end procedure bp
end submodule ts
end
pr93423_red.f90:5:19:
5 | module procedure bp(s)
| 1
Error: MODULE PROCEDURE at (1) must be in a generic module interface
f951: internal compiler error: Segmentation fault: 11
* thread #1, queue = 'com.apple.main-thread', stop reason = EXC_BAD_ACCESS
(code=1, address=0x0)
* frame #0: 0x00007fff6bd198b5 libsystem_platform.dylib`_platform_strcmp +
181
frame #1: 0x00000001000c8856
f951`gfc_resolve_formal_arglist(proc=0x000000014301fbb0) at resolve.c:313:18
frame #2: 0x00000001000eb283 f951`::do_traverse_symtree(st=<unavailable>,
st_func=0x0000000000000000, sym_func=(f951`::find_arglists(gfc_symbol *) at
resolve.c:546:3))(gfc_symtree *), void (*)(gfc_symbol *)) at symbol.c:4170:18
frame #3: 0x00000001000c9098 f951`::resolve_types(gfc_namespace *)
[inlined] resolve_formal_arglists(ns=<unavailable>) at resolve.c:563:19
frame #4: 0x00000001000c9089 f951`::resolve_types(gfc_namespace *)
[inlined] resolve_contained_functions(ns=0x0000000143839200)
frame #5: 0x00000001000c9089 f951`::resolve_types(ns=0x0000000143839200)
frame #6: 0x00000001000bb9a3 f951`gfc_resolve(ns=0x0000000143839200) at
resolve.c:17326:17
frame #7: 0x00000001000ae701 f951`gfc_parse_file() at parse.c:6448:15
frame #8: 0x00000001001032dc f951`::gfc_be_parse_file() at
f95-lang.c:212:18
frame #9: 0x0000000100e8fddb f951`::compile_file() at toplev.c:458:25
frame #10: 0x00000001015dcc7b f951`toplev::main(int, char**) at
toplev.c:2307:24
frame #11: 0x00000001015dc8e0 f951`toplev::main(this=0x00007ffeefbff26e,
argc=<unavailable>, argv=<unavailable>)
frame #12: 0x00000001015dfb61 f951`main(argc=2, argv=0x00007ffeefbff2a8) at
main.c:39:22
frame #13: 0x00007fff6bb23cc9 libdyld.dylib`start + 1
frame #14: 0x00007fff6bb23cc9 libdyld.dylib`start + 1
