1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
! { dg-do compile }
! { dg-options "-fmax-errors=1000" }
character(kind=1,len=20) :: s1, t1
character(kind=4,len=20) :: s4, t4
print *, "" // ""
print *, "" // 4_"" ! { dg-error "Operands of string concatenation operator" }
print *, 4_"" // "" ! { dg-error "Operands of string concatenation operator" }
print *, 4_"" // 4_""
print *, s1 // ""
print *, s1 // 4_"" ! { dg-error "Operands of string concatenation operator" }
print *, s4 // "" ! { dg-error "Operands of string concatenation operator" }
print *, s4 // 4_""
print *, "" // s1
print *, 4_"" // s1 ! { dg-error "Operands of string concatenation operator" }
print *, "" // s4 ! { dg-error "Operands of string concatenation operator" }
print *, 4_"" // s4
print *, s1 // t1
print *, s1 // t4 ! { dg-error "Operands of string concatenation operator" }
print *, s4 // t1 ! { dg-error "Operands of string concatenation operator" }
print *, s4 // t4
print *, s1 .eq. ""
print *, s1 .eq. 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 .eq. "" ! { dg-error "Operands of comparison operator" }
print *, s4 .eq. 4_""
print *, s1 == ""
print *, s1 == 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 == "" ! { dg-error "Operands of comparison operator" }
print *, s4 == 4_""
print *, s1 .ne. ""
print *, s1 .ne. 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 .ne. "" ! { dg-error "Operands of comparison operator" }
print *, s4 .ne. 4_""
print *, s1 /= ""
print *, s1 /= 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 /= "" ! { dg-error "Operands of comparison operator" }
print *, s4 /= 4_""
print *, s1 .le. ""
print *, s1 .le. 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 .le. "" ! { dg-error "Operands of comparison operator" }
print *, s4 .le. 4_""
print *, s1 <= ""
print *, s1 <= 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 <= "" ! { dg-error "Operands of comparison operator" }
print *, s4 <= 4_""
print *, s1 .ge. ""
print *, s1 .ge. 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 .ge. "" ! { dg-error "Operands of comparison operator" }
print *, s4 .ge. 4_""
print *, s1 >= ""
print *, s1 >= 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 >= "" ! { dg-error "Operands of comparison operator" }
print *, s4 >= 4_""
print *, s1 .lt. ""
print *, s1 .lt. 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 .lt. "" ! { dg-error "Operands of comparison operator" }
print *, s4 .lt. 4_""
print *, s1 < ""
print *, s1 < 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 < "" ! { dg-error "Operands of comparison operator" }
print *, s4 < 4_""
print *, s1 .gt. ""
print *, s1 .gt. 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 .gt. "" ! { dg-error "Operands of comparison operator" }
print *, s4 .gt. 4_""
print *, s1 > ""
print *, s1 > 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 > "" ! { dg-error "Operands of comparison operator" }
print *, s4 > 4_""
print *, "" == ""
print *, 4_"" == "" ! { dg-error "Operands of comparison operator" }
print *, "" .eq. ""
print *, 4_"" .eq. "" ! { dg-error "Operands of comparison operator" }
print *, "" /= ""
print *, 4_"" /= "" ! { dg-error "Operands of comparison operator" }
print *, "" .ne. ""
print *, 4_"" .ne. "" ! { dg-error "Operands of comparison operator" }
print *, "" .lt. ""
print *, 4_"" .lt. "" ! { dg-error "Operands of comparison operator" }
print *, "" < ""
print *, 4_"" < "" ! { dg-error "Operands of comparison operator" }
print *, "" .le. ""
print *, 4_"" .le. "" ! { dg-error "Operands of comparison operator" }
print *, "" <= ""
print *, 4_"" <= "" ! { dg-error "Operands of comparison operator" }
print *, "" .gt. ""
print *, 4_"" .gt. "" ! { dg-error "Operands of comparison operator" }
print *, "" > ""
print *, 4_"" > "" ! { dg-error "Operands of comparison operator" }
print *, "" .ge. ""
print *, 4_"" .ge. "" ! { dg-error "Operands of comparison operator" }
print *, "" >= ""
print *, 4_"" >= "" ! { dg-error "Operands of comparison operator" }
end
|
