2 C PR 30525 - comparisons with padded spaces were done
8 C Comparison between char(255) and space padding
12 if (.not. (c2 .gt. c1)) call abort
14 C Comparison between char(255) and space
18 if (.not. (c4 .gt. c3)) call abort
21 C Check constant folding
23 if (.not. ('a' // char(255) .gt. 'a')) call abort
25 if (.not. (char(255) .gt. 'a')) call abort