[Bug fortran/64125] New: Allocation of character strings

[Bug fortran/64125] New: Allocation of character strings

[fmartinez at gmv dot com]

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

            Bug ID: 64125
           Summary: Allocation of character strings
           Product: gcc
           Version: 5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: fmartinez at gmv dot com

Hi.
The following code inside a module causes the compiler to crash (also in the
latest version of 4.9)

   allocate( character(len=size(right))::left%chars )
 ^
internal compiler error: in gimplify_expr, at gimplify.c:8646
0x572c28 ???
    ../sysdeps/x86_64/elf/start.S:113

Cheers,
Fran


type t_string
  private
  character(len=:), allocatable :: chars
end type t_string



pure subroutine string_assign_from_array( left, right )

! The target string
  type(t_string), intent(out) :: left

! The source string
  character, dimension(:), intent(in) :: right


! Copy memory
  allocate( character(len=size(right)) :: left%chars )
  left%chars = transfer( right, left%chars )

end subroutine string_assign_from_array

[Bug fortran/64125] Allocation of character strings

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|---                         |DUPLICATE

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Next time please provide a full test. With

module test
type t_string
  private
  character(len=:), allocatable :: chars
end type t_string

contains

pure subroutine string_assign_from_array( left, right )

! The target string
  type(t_string), intent(out) :: left

! The source string
  character, dimension(:), intent(in) :: right


! Copy memory
  allocate( character(len=size(right)) :: left%chars )
  left%chars = transfer( right, left%chars )

end subroutine string_assign_from_array

end module test

I get the same ICEs (depending on --enable-checking=release in the configure
command used to bootstrap) than with pr63230. Thus marking this PR as a
duplicate. Note that I am sure that pr63230 is also a duplicate.

*** This bug has been marked as a duplicate of bug 63230 ***