?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Dead
[official-gcc.git] / gomp-20050608-branch / gcc / testsuite / gfortran.dg / merge_char_1.f90
blob0a8036d62df643018ca1b2c30bbd81f1128444a7
1 ! { dg-do run }
2 ! PR 15327
3 ! The merge intrinsic didn't work for strings
4 character*2 :: c(2)
5 c = merge( (/ "AA", "BB" /), (/ "CC", "DD" /), (/ .TRUE., .FALSE. /) )
6 if (c(1).ne."AA" .or. c(2).ne."DD") call abort ()
7 end
Mirror of the offical gcc git repository hosted at gcc.gnu.org