1! { dg-do run }
2! { dg-options "-std=legacy" }
3!
4! PR 15327
5! The merge intrinsic didn't work for strings
6character*2 :: c(2)
7logical :: ll(2)
8
9ll = (/ .TRUE., .FALSE. /)
10c = merge( (/ "AA", "BB" /), (/ "CC", "DD" /), ll )
11if (c(1).ne."AA" .or. c(2).ne."DD") STOP 1
12
13c = ""
14c = merge( (/ "AA", "BB" /), (/ "CC", "DD" /), (/ .TRUE., .FALSE. /) )
15if (c(1).ne."AA" .or. c(2).ne."DD") STOP 2
16end
17