2 ! { dg-options "-O -fdump-tree-original" }
5 character(len=4) :: c, d
15 n = n + 1 ; if ('a' // c == 'a' // c) call yes
16 n = n + 1 ; if (c // 'a' == c // 'a') call yes
17 n = n + 1; if ('b' // c > 'a' // d) call yes
18 n = n + 1; if (c // 'b' > c // 'a') call yes
20 if ('a' // c /= 'a' // c) call abort
21 if ('a' // c // 'b' == 'a' // c // 'a') call abort
22 if ('b' // c == 'a' // c) call abort
23 if (c // 'a' == c // 'b') call abort
24 if (c // 'a ' /= c // 'a') call abort
25 if (c // 'b' /= c // 'b ') call abort
27 if (n /= i) call abort
37 ! { dg-final { scan-tree-dump-times "gfortran_compare_string" 0 "original" } }
38 ! { dg-final { cleanup-tree-dump "original" } }