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" } }