2 ! { dg-options "-fmax-errors=1000" }
4 character(kind
=1,len
=20) :: s1
, t1
5 character(kind
=4,len
=20) :: s4
, t4
8 print *, "" // 4_
"" ! { dg-error "Operands of string concatenation operator" }
9 print *, 4_
"" // "" ! { dg-error "Operands of string concatenation operator" }
13 print *, s1
// 4_
"" ! { dg-error "Operands of string concatenation operator" }
14 print *, s4
// "" ! { dg-error "Operands of string concatenation operator" }
18 print *, 4_
"" // s1
! { dg-error "Operands of string concatenation operator" }
19 print *, "" // s4
! { dg-error "Operands of string concatenation operator" }
23 print *, s1
// t4
! { dg-error "Operands of string concatenation operator" }
24 print *, s4
// t1
! { dg-error "Operands of string concatenation operator" }
28 print *, s1
.eq
. 4_
"" ! { dg-error "Operands of comparison operator" }
29 print *, s4
.eq
. "" ! { dg-error "Operands of comparison operator" }
33 print *, s1
== 4_
"" ! { dg-error "Operands of comparison operator" }
34 print *, s4
== "" ! { dg-error "Operands of comparison operator" }
38 print *, s1
.ne
. 4_
"" ! { dg-error "Operands of comparison operator" }
39 print *, s4
.ne
. "" ! { dg-error "Operands of comparison operator" }
43 print *, s1
/= 4_
"" ! { dg-error "Operands of comparison operator" }
44 print *, s4
/= "" ! { dg-error "Operands of comparison operator" }
48 print *, s1
.le
. 4_
"" ! { dg-error "Operands of comparison operator" }
49 print *, s4
.le
. "" ! { dg-error "Operands of comparison operator" }
53 print *, s1
<= 4_
"" ! { dg-error "Operands of comparison operator" }
54 print *, s4
<= "" ! { dg-error "Operands of comparison operator" }
58 print *, s1
.ge
. 4_
"" ! { dg-error "Operands of comparison operator" }
59 print *, s4
.ge
. "" ! { dg-error "Operands of comparison operator" }
63 print *, s1
>= 4_
"" ! { dg-error "Operands of comparison operator" }
64 print *, s4
>= "" ! { dg-error "Operands of comparison operator" }
68 print *, s1
.lt
. 4_
"" ! { dg-error "Operands of comparison operator" }
69 print *, s4
.lt
. "" ! { dg-error "Operands of comparison operator" }
73 print *, s1
< 4_
"" ! { dg-error "Operands of comparison operator" }
74 print *, s4
< "" ! { dg-error "Operands of comparison operator" }
78 print *, s1
.gt
. 4_
"" ! { dg-error "Operands of comparison operator" }
79 print *, s4
.gt
. "" ! { dg-error "Operands of comparison operator" }
83 print *, s1
> 4_
"" ! { dg-error "Operands of comparison operator" }
84 print *, s4
> "" ! { dg-error "Operands of comparison operator" }
88 print *, 4_
"" == "" ! { dg-error "Operands of comparison operator" }
90 print *, 4_
"" .eq
. "" ! { dg-error "Operands of comparison operator" }
92 print *, 4_
"" /= "" ! { dg-error "Operands of comparison operator" }
94 print *, 4_
"" .ne
. "" ! { dg-error "Operands of comparison operator" }
96 print *, 4_
"" .lt
. "" ! { dg-error "Operands of comparison operator" }
98 print *, 4_
"" < "" ! { dg-error "Operands of comparison operator" }
100 print *, 4_
"" .le
. "" ! { dg-error "Operands of comparison operator" }
102 print *, 4_
"" <= "" ! { dg-error "Operands of comparison operator" }
104 print *, 4_
"" .gt
. "" ! { dg-error "Operands of comparison operator" }
106 print *, 4_
"" > "" ! { dg-error "Operands of comparison operator" }
108 print *, 4_
"" .ge
. "" ! { dg-error "Operands of comparison operator" }
110 print *, 4_
"" >= "" ! { dg-error "Operands of comparison operator" }