1! { dg-do run }
2! PR 50192 - on little-endian systems, this used to fail.
3program main
4 character(kind=4,len=2) :: c1, c2
5 c1 = 4_' '
6 c2 = 4_' '
7 c1(1:1) = transfer(257, mold=c1(1:1))
8 c2(1:1) = transfer(64, mold=c2(1:1))
9 if (c1 < c2) call abort
10end program main
11