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