[Bug fortran/78278] ICE in gfc_wide_memset, at fortran/scanner.c:153

[kargl at gcc dot gnu.org]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #6 from kargl at gcc dot gnu.org ---
(In reply to Gerhard Steinmetz from comment #0)
> Down to at least 4.8 :
> 
> $ cat z1.f90
> program p
>    character, pointer :: x => null()
>    data x /null()/
> end
> 
> $ gfortran-7-20161106 z1.f90
> f951: internal compiler error: Segmentation fault
> 0xc3a64f crash_signal
>         ../../gcc/toplev.c:338
> 0x700690 gfc_wide_memset(unsigned int*, unsigned int, unsigned long)
>         ../../gcc/fortran/scanner.c:153
> 0x67741d create_character_initializer
>         ../../gcc/fortran/data.c:195
> 0x67741d gfc_assign_data_value(gfc_expr*, gfc_expr*, __mpz_struct*,
> __mpz_struct (*) [1])
>         ../../gcc/fortran/data.c:488
> 0x6f12a9 check_data_variable
>         ../../gcc/fortran/resolve.c:15001
> 0x6f12a9 traverse_data_var
>         ../../gcc/fortran/resolve.c:15130
> 0x6fbc91 resolve_data
>         ../../gcc/fortran/resolve.c:15185
> 0x6fbc91 resolve_types
>         ../../gcc/fortran/resolve.c:15939
> 0x6f76ac gfc_resolve(gfc_namespace*)
>         ../../gcc/fortran/resolve.c:16027
> 0x6e1bba resolve_all_program_units
>         ../../gcc/fortran/parse.c:5883
> 0x6e1bba gfc_parse_file()
>         ../../gcc/fortran/parse.c:6130
> 0x725822 gfc_be_parse_file
>         ../../gcc/fortran/f95-lang.c:198

This now compiles with trunk.  I cannot force the
error message with -std=f95 (or any other -std= option).