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

            Bug ID: 68155
           Summary: ICE on initializing character array in type (len_lhs
                    <> len_rhs)
           Product: gcc
           Version: 5.2.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fort...@t-online.de
  Target Milestone: ---

Embedded in a type :

$ cat z1t.f90
program p
   type t
      character(2) :: z(1) = '' // ['y']
   end type
   type(t) :: z
   print *, z
end

$ gfortran -g -O0 -Wall -fcheck=all z1t.f90
f951: internal compiler error: Segmentation fault

---

Simplified and correct :

$ cat z1c.f90
program p
   character(2) :: z(1) = '' // ['y']
   print *, '>>' // z // '<<'
end

$ gfortran -g -O0 -Wall -fcheck=all z1c.f90
$ a.out
 >>y <<

Reply via email to