[Bug fortran/66408] New: deferred-length character & overloaded assignment

[werner.blokbuster at gmail dot com]

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

            Bug ID: 66408
           Summary: deferred-length character & overloaded assignment
           Product: gcc
           Version: 5.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: werner.blokbuster at gmail dot com
  Target Milestone: ---

The following code:

module mytest

    implicit none

    type vary
        character(:), allocatable :: string
    end type vary

    interface assignment(=)
        module procedure char_eq_vary
    end interface assignment(=)

contains

    subroutine char_eq_vary(my_char,my_vary)
        character(:), allocatable, intent(out) :: my_char
        type(vary), intent(in) :: my_vary
        my_char = my_vary%string
    end subroutine char_eq_vary

end module mytest


program thistest

    use mytest, only: vary, assignment(=)
    implicit none

    character(:), allocatable :: test_char
    type(vary) :: test_vary
    type(vary) :: my_stuff


    test_vary%string = 'example string'
    write(*,*) test_vary%string

    my_stuff%string = test_vary
    write(*,*) my_stuff%string

    test_char = test_vary
    write(*,*) test_char

    my_stuff = test_vary
    write(*,*) my_stuff%string

end program thistest


outputs

 example string

 example string
 example string

- I was expecting the third write to also give " example string".

I also get the same output with version 4.9.2.