blob: 4e7eb4ba220caeeaa453b37cd24cfa14c14c4c81 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { dg-do compile }
! PR 85641 - this used to ICE due do infinite recursion.
! Test case by Antony Lewis.
program tester
character(LEN=:), allocatable :: fields
integer j
character(LEN=4), parameter :: CMB_CL_Fields = 'TEBP'
fields = ''
j=1
fields = fields // CMB_CL_Fields(j:j)
end program tester
|
