2 ! { dg-options "-fbounds-check" }
3 ! { dg-shouldfail "Unequal character lengths" }
6 ! Test that -fbounds-check detects unequal character lengths to MERGE
9 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
15 logical :: ll
= .true
.
16 print *, merge(a
,b
,ll
) ! Unequal character lengths