blob: 080083e3a5d492af77def0895980f1802bedfcfa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { 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
|
