8 print *, merge(a
,a
,.true
.)
9 print *, merge(a
,'aa',.true
.)
10 print *, merge('aa',a
,.true
.)
11 print *, merge('aa','bb',.true
.)
12 print *, merge(a
, b
, .true
.) ! { dg-error "Unequal character lengths" }
13 print *, merge(a
, 'bbb',.true
.) ! { dg-error "Unequal character lengths" }
14 print *, merge('aa',b
, .true
.) ! { dg-error "Unequal character lengths" }
15 print *, merge('aa','bbb',.true
.) ! { dg-error "Unequal character lengths" }
