2 C { dg-options "-std=legacy" }
4 C PR 30525 - comparisons with padded spaces were done
10 C Comparison between char(255) and space padding
14 if (.not. (c2 .gt. c1)) call abort
16 C Comparison between char(255) and space
20 if (.not. (c4 .gt. c3)) call abort
23 C Check constant folding
25 if (.not. ('a' // char(255) .gt. 'a')) call abort
27 if (.not. (char(255) .gt. 'a')) call abort