5 character (len=1), parameter :: letters(2) = (/"a","b"/)
10 call concat(5, [2,2,2])
12 subroutine concat(i, ivec)
13 integer, intent(in) :: i, ivec(:)
14 write (*,*) i, "a" // letters(ivec)
17 ! { dg-output " *1 aa(\n|\r\n|\r)" }
18 ! { dg-output " *2 ab(\n|\r\n|\r)" }
19 ! { dg-output " *3 aaab(\n|\r\n|\r)" }
20 ! { dg-output " *4 abaa(\n|\r\n|\r)" }
21 ! { dg-output " *5 ababab(\n|\r\n|\r)" }