Lines Matching refs:_
12 logical, parameter :: test_char2_ok1 = char(0_4, 2).EQ.2_"�"
13 logical, parameter :: test_char2_ok2 = char(127_4, 2).EQ.2_""
14 logical, parameter :: test_char2_ok3 = char(122_4, 2).EQ.2_"z"
16 logical, parameter :: test_char4_ok1 = char(0, 4).EQ.4_"�"
17 logical, parameter :: test_char4_ok2 = char(INT(12435, 4), 4).EQ.4_"ん"
18 logical, parameter :: test_char4_ok3 = char(354_4, 4).EQ.4_"Ţ"
22 logical, parameter :: test_char4_array = (c4aok(1).EQ.4_"a").AND.(c4aok(2).EQ.4_"b") &
23 .AND.(c4aok(3).EQ.4_"c").AND.(c4aok(4).EQ.4_"你").AND.(c4aok(5).EQ.4_"好")
25 logical, parameter :: test_achar4_ok1 = achar(0_4, 4).EQ.4_"�"
26 logical, parameter :: test_achar4_ok2 = achar(127_4, 4).EQ.4_""
29 logical, parameter :: test_char1_array = (c1aok(1).EQ.1_"a").AND.(c1aok(2).EQ.1_"�") &
30 .AND.(c1aok(3).EQ.1_"b")
56 … parameter :: test_c1_adjustl8 = (c1_adjustl8(1).EQ.1_"this is a test ").AND.(c1_adjustl8(2).EQ.1…
58 logical, parameter :: test_c4_adjustr1 = adjustr(4_" 你好吗 ? ").EQ.(4_" 你好吗 ?")
59 logical, parameter :: test_c4_adjustr2 = .NOT.(4_" 你好吗 ? ").EQ.(4_" 你好吗 ?")
60 logical, parameter :: test_c4_adjustr3 = adjustr(4_"").EQ.(4_"")
61 logical, parameter :: test_c4_adjustr4 = adjustr(4_" ").EQ.(4_" ")
62 logical, parameter :: test_c4_adjustr5 = adjustr(4_"你 好吗?").EQ.(4_"你 好吗?")
63 logical, parameter :: test_c4_adjustr6 = adjustr(4_" 你好吗?").EQ.(4_" 你好吗?")
64 logical, parameter :: test_c4_adjustr7 = adjustr(4_" 你好吗? ").EQ.(4_" 你好吗?")
65 …character(kind=4, len=*), parameter :: c4_adjustr8(*) = adjustr([4_" 你 好吗?%%% ", 4_"你a好b 吗c? "])
66 …al, parameter :: test_c4_adjustr8 = (c4_adjustr8(1).EQ.4_" 你 好吗?%%%").AND.(c4_adjustr8(2).EQ.4_"…
72 logical, parameter :: test_c1_new_line1 = ichar(new_line(1_"a"), 4).EQ.10_4
73 logical, parameter :: test_c2_new_line1 = ichar(new_line(2_"z"), 4).EQ.10_4
74 logical, parameter :: test_c4_new_line1 = ichar(new_line(4_" 你好吗? "), 4).EQ.10_4
92 logical, parameter :: test_c4_index1 = index(4_" this is a test", 4_"this is a test") .EQ. 3
93 logical, parameter :: test_c4_index2 = index(4_" this is a test", 4_"this is not a test") .EQ. 0
94 logical, parameter :: test_c4_index3 = index(4_"ABBA", 4_"A") .EQ. 1
95 logical, parameter :: test_c4_index4 = index(4_"ABBA", 4_"A", back=.true.) .EQ. 4
102 logical, parameter :: test_c4_scan1 = scan(4_"ABBA", 4_"ACD") .EQ. 1
103 logical, parameter :: test_c4_scan2 = scan(4_"ABBA", 4_"ACD", back=.true.) .EQ. 4
104 logical, parameter :: test_c4_scan3 = scan(4_"ABBA", 4_"E") .EQ. 0
105 logical, parameter :: test_c4_scan4 = scan(4_"ABBA", 4_"") .EQ. 0
106 logical, parameter :: test_c4_scan5 = scan(4_"", 4_"FG") .EQ. 0
107 logical, parameter :: test_c4_scan6 = scan(4_"", 4_"") .EQ. 0
115 logical, parameter :: test_c4_verify1 = verify(4_"ABBA", 4_"ACD") .EQ. 2
116 logical, parameter :: test_c4_verify2 = verify(4_"ABBA", 4_"ACD", back=.true.) .EQ. 3
117 logical, parameter :: test_c4_verify3 = verify(4_"ABBA", 4_"E") .EQ. 1
118 logical, parameter :: test_c4_verify4 = verify(4_"ABBA", 4_"") .EQ. 1
119 logical, parameter :: test_c4_verify4a = verify(4_"ABBA", 4_"", back=.true.) .EQ. 4
120 logical, parameter :: test_c4_verify5 = verify(4_"", 4_"FG") .EQ. 0
121 logical, parameter :: test_c4_verify6 = verify(4_"", 4_"") .EQ. 0
127 logical, parameter :: test_c4_len_trim1 = len_trim(4_"this is a test ") .EQ. 14
128 logical, parameter :: test_c4_len_trim2 = len_trim(4_"this is a test") .EQ. 14
129 logical, parameter :: test_c4_len_trim3 = len_trim(4_" this is a test") .EQ. 16
130 logical, parameter :: test_c4_len_trim4 = len_trim(4_"") .EQ. 0
135 logical, parameter :: test_c4_repeat1 = repeat(4_'ab', 2) .eq. 4_'abab'
136 logical, parameter :: test_c4_repeat2 = repeat(4_'ab', 0) .eq. 4_''
137 logical, parameter :: test_c4_repeat3 = repeat(4_'', 99) .eq. 4_''
144 logical, parameter :: test_c4_trim1 = trim(4_'ab') .eq. 4_'ab'
145 logical, parameter :: test_c4_trim2 = trim(4_'ab ') .eq. 4_'ab'
146 logical, parameter :: test_c4_trim3 = trim(4_' ab ') .eq. 4_' ab'
147 logical, parameter :: test_c4_trim4 = trim(4_' ') .eq. 4_''
148 logical, parameter :: test_c4_trim5 = trim(4_'') .eq. 4_''