! { 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 |