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