mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
20 lines
400 B
Fortran
20 lines
400 B
Fortran
! { 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
|