[Bug fortran/90352] New: [9/10 Regression] ICE on BIND(C) subroutine with characters with len /= 1

[tkoenig at gcc dot gnu.org]

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

            Bug ID: 90352
           Summary: [9/10 Regression] ICE on BIND(C) subroutine with
                    characters with len /= 1
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: tkoenig at gcc dot gnu.org
  Target Milestone: ---

$ cat bar.f90
subroutine bar(c,d) BIND(C)
  character (len=*) c
  character (len=2) d
end
$ ~/Gcc/9-bin/gcc/f951 bar.f90
 barbar.f90:4:0:

    4 | end
      | 
interner Compiler-Fehler: in gfc_trans_deferred_vars, bei
fortran/trans-decl.c:4928
0x5f20af gfc_trans_deferred_vars(gfc_symbol*, gfc_wrapped_block*)
        ../../gcc-9/gcc/fortran/trans-decl.c:4928
0x730c1d gfc_generate_function_code(gfc_namespace*)
        ../../gcc-9/gcc/fortran/trans-decl.c:6760
0x6be0ce translate_all_program_units
        ../../gcc-9/gcc/fortran/parse.c:6134
0x6be0ce gfc_parse_file()
        ../../gcc-9/gcc/fortran/parse.c:6337
0x706ebf gfc_be_parse_file
        ../../gcc-9/gcc/fortran/f95-lang.c:204
Bitte senden Sie einen vollständigen Fehlerbericht auf Englisch ein;
inclusive vorverarbeitetem Quellcode, wenn es dienlich ist.
Please include the complete backtrace with any bug report.
Weitere Hinweise finden Sie unter »<https://gcc.gnu.org/bugs/>«.
$ gfortran bar.f90
bar.f90:4:0:

    4 | end
      | 
interner Compiler-Fehler: in gfc_trans_deferred_vars, bei
fortran/trans-decl.c:4928
0x5f20af gfc_trans_deferred_vars(gfc_symbol*, gfc_wrapped_block*)
        ../../gcc-9/gcc/fortran/trans-decl.c:4928
0x730c1d gfc_generate_function_code(gfc_namespace*)
        ../../gcc-9/gcc/fortran/trans-decl.c:6760
0x6be0ce translate_all_program_units
        ../../gcc-9/gcc/fortran/parse.c:6134
0x6be0ce gfc_parse_file()
        ../../gcc-9/gcc/fortran/parse.c:6337
0x706ebf gfc_be_parse_file
        ../../gcc-9/gcc/fortran/f95-lang.c:204
Bitte senden Sie einen vollständigen Fehlerbericht auf Englisch ein;
inclusive vorverarbeitetem Quellcode, wenn es dienlich ist.
Please include the complete backtrace with any bug report.
Weitere Hinweise finden Sie unter »<https://gcc.gnu.org/bugs/>«.
$ /usr/bin/gfortran-8 bar.f90
bar.f90:1:16:

 subroutine bar(c,d) BIND(C)
                1
Fehler: Zeichenargument »c« bei (1) muss Länge 1 haben, da Prozedur »bar«
BIND(C) ist
bar.f90:1:18:

 subroutine bar(c,d) BIND(C)
                  1
Fehler: Zeichenargument »d« bei (1) muss Länge 1 haben, da Prozedur »bar«
BIND(C) ist