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

[gerhard.steinmetz.fortran@t-online.de]

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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---

Whereas, for example with "real" :

$ cat z2.f90
program p
   real, pointer :: x => null()
   data x /null()/
   print *, associated(x)
end

$ gfortran-7-20161106 -Wall -fcheck=all z2.f90
$ a.out
 F