| ! { dg-do run } |
| ! |
| ! Test the fix for PR88393 in which a segfault occurred as indicated. |
| ! |
| ! Contributed by Janus Weil <janus@gcc.gnu.org> |
| ! |
| module m |
| implicit none |
| type :: t |
| character(len=:), allocatable :: cs |
| contains |
| procedure :: ass |
| generic :: assignment(=) => ass |
| end type |
| contains |
| subroutine ass(a, b) |
| class(t), intent(inout) :: a |
| class(t), intent(in) :: b |
| a%cs = b%cs |
| print *, "ass" |
| end subroutine |
| end module |
| |
| program p |
| use m |
| implicit none |
| type :: t2 |
| type(t) :: c |
| end type |
| type(t2), dimension(1:2) :: arr |
| arr(1)%c%cs = "abcd" |
| arr(2)%c = arr(1)%c ! Segfault here. |
| print *, "done", arr(2)%c%cs, arr(2)%c%cs |
| ! Make sure with valgrind that there are no memory leaks. |
| deallocate (arr(1)%c%cs) |
| deallocate (arr(2)%c%cs) |
| end |
