summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/widechar_3.f90
blob: 653f1d93ac1771e8456b82326dce66db9c6d5267 (plain)
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