@@ -149,6 +149,32 @@ subroutine test_2(error_cnt)
149
149
error_cnt = error_cnt + 1
150
150
end if
151
151
152
+ call json% add(inp, ' bspace' , achar (8 ,kind= json_CK))
153
+ if (json% failed()) then
154
+ call json% print_error_message(error_unit)
155
+ error_cnt = error_cnt + 1
156
+ end if
157
+ call json% add(inp, ' horizontal_tab' , achar (9 ,kind= json_CK))
158
+ if (json% failed()) then
159
+ call json% print_error_message(error_unit)
160
+ error_cnt = error_cnt + 1
161
+ end if
162
+ call json% add(inp, ' newline' , achar (10 ,kind= json_CK))
163
+ if (json% failed()) then
164
+ call json% print_error_message(error_unit)
165
+ error_cnt = error_cnt + 1
166
+ end if
167
+ call json% add(inp, ' formfeed' , achar (12 ,kind= json_CK))
168
+ if (json% failed()) then
169
+ call json% print_error_message(error_unit)
170
+ error_cnt = error_cnt + 1
171
+ end if
172
+ call json% add(inp, ' carriage_return' , achar (13 ,kind= json_CK))
173
+ if (json% failed()) then
174
+ call json% print_error_message(error_unit)
175
+ error_cnt = error_cnt + 1
176
+ end if
177
+
152
178
nullify(inp)
153
179
154
180
! trajectory variables:
0 commit comments