https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95837
kargl at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |kargl at gcc dot gnu.org
--- Comment #2 from kargl at gcc dot gnu.org ---
(In reply to Dominique d'Humieres from comment #1)
> The problem seems more serious.
>
> type t
> character(len=:, kind=4), pointer :: str2
> end type t
> type(t) :: var
> character(len=:, kind=4), pointer :: str
>
> print *, kind(str), kind(var%str2)
> str(1:1) = 4_"a"
> end
>
> result
>
> % ./a.out
> 4 4
Yes, there is a serious problem with the Fortran code!
str is an undefined pointer. The line 'str(1:1) = 4_"a"'
is invalid.
