1C { dg-do run } 2C { dg-options "-std=legacy" } 3C 4C PR 30525 - comparisons with padded spaces were done 5C signed. 6 program main 7 character*2 c2 8 character*1 c1, c3, c4 9C 10C Comparison between char(255) and space padding 11C 12 c2 = 'a' // char(255) 13 c1 = 'a' 14 if (.not. (c2 .gt. c1)) call abort 15C 16C Comparison between char(255) and space 17C 18 c3 = ' ' 19 c4 = char(255) 20 if (.not. (c4 .gt. c3)) call abort 21 22C 23C Check constant folding 24C 25 if (.not. ('a' // char(255) .gt. 'a')) call abort 26 27 if (.not. (char(255) .gt. 'a')) call abort 28 end 29