Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.4.0
/
gcc
/
testsuite
/
gfortran.dg
/
merge_char_1.f90
blob: 0a8036d62df643018ca1b2c30bbd81f1128444a7 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR
15327
!
The
merge intrinsic didn
't work for strings
character*2 :: c(2)
c = merge( (/ "AA", "BB" /), (/ "CC", "DD" /), (/ .TRUE., .FALSE. /) )
if (c(1).ne."AA" .or. c(2).ne."DD") call abort ()
end