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 print *, merge(a
,b
,.true
.) ! Unequal character lengths