[Bug fortran/85703] New: ICE in resolve_fntype, at fortran/resolve.c:16313

[gscfq@t-online.de]

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

            Bug ID: 85703
           Summary: ICE in resolve_fntype, at fortran/resolve.c:16313
           Product: gcc
           Version: 9.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

Affects versions down to gfortran-5 :


$ cat z1.f90
character function f()
   !$acc parallel loop reduction(+:a)
   do i = 1, 4
   end do
   !$acc end parallel loop
end


$ gfortran-9-20180506 -c z1.f90 -fopenacc
f951: internal compiler error: Segmentation fault
0xb9e99f crash_signal
        ../../gcc/toplev.c:325
0x71c4fa resolve_fntype
        ../../gcc/fortran/resolve.c:16313
0x71c4fa resolve_types
        ../../gcc/fortran/resolve.c:16456
0x717cac gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.c:16568
0x70140a resolve_all_program_units
        ../../gcc/fortran/parse.c:6060
0x70140a gfc_parse_file()
        ../../gcc/fortran/parse.c:6310
0x74832f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204