blob: 53898b3a34d7ed09a3a7014bd7e1e67bbdfde2db (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { dg-do run }
!
! Test the fix for PR91717 in which the concatenation operation ICEd.
!
! Contributed by Damian Rouson <damian@sourceryinstitute.org>
!
type core
character (len=:), allocatable :: msg
end type
type(core) :: my_core
my_core%msg = ""
my_core%msg = my_core%msg//"my message is: "
my_core%msg = my_core%msg//"Hello!"
if (my_core%msg .ne. "my message is: Hello!") stop 1
end
|