Sign in
llvm
/
llvm-archive
/
089ca8750d7cd1f1ec96968922bf4bcfe223bb3a
/
.
/
llvm-gcc-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