| ! { dg-do compile } | |
| ! PR 70040 - used to cause an ICE. | |
| ! Test case by Martin Reinecke | |
| program bugrep | |
| implicit none | |
| type :: string | |
| character (len=:), allocatable :: s | |
| end type | |
| integer l | |
| type(string), allocatable, dimension(:) :: foo | |
| character(len=:),allocatable ::tmp | |
| allocate(foo(20)) | |
| do l= 1, 20 | |
| tmp = foo(5)%s | |
| foo(5)%s = foo(l)%s | |
| foo(l)%s = tmp | |
| enddo | |
| end program |