https://gcc.gnu.org/bugzilla/show_bug.cgi?id=96320
--- Comment #14 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
After fixing the ICEs by replacing 's1->ns->proc_name->attr.module_procedure'
with 's1->ns->proc_name && s1->ns->proc_name->attr.module_procedure' I am left
with two regressions:
FAIL: gfortran.dg/proc_decl_26.f90 -O 2 blank line(s) in output
FAIL: gfortran.dg/proc_decl_26.f90 -O (test for excess errors)
FAIL: gfortran.dg/whole_file_23.f90 -O 1 blank line(s) in output
FAIL: gfortran.dg/whole_file_23.f90 -O (test for excess errors)
% gfc /opt/gcc/work/gcc/testsuite/gfortran.dg/proc_decl_26.f90
f951: Warning: s1 2 s2 1
/opt/gcc/work/gcc/testsuite/gfortran.dg/proc_decl_26.f90:20:11:
20 | call foo(two) ! { dg-error "Shape mismatch in argument" }
| 1
Error: Interface mismatch in dummy procedure 'f1' at (1): Shape mismatch in
argument 'a'
f951: Warning: s1 2 s2 1
/opt/gcc/work/gcc/testsuite/gfortran.dg/proc_decl_26.f90:21:11:
21 | call bar(two) ! { dg-error "Shape mismatch in argument" }
| 1
Error: Interface mismatch in dummy procedure 'f2' at (1): Shape mismatch in
argument 'a'
% gfc /opt/gcc/work/gcc/testsuite/gfortran.dg/whole_file_23.f90
f951: Warning: s1 3 s2 2
/opt/gcc/work/gcc/testsuite/gfortran.dg/whole_file_23.f90:18:32:
18 | pure integer function lensum (words, sep)
| 1
Warning: Interface mismatch in global procedure 'lensum' at (1): Shape mismatch
in argument 'words'
