@@ -149,6 +149,32 @@ subroutine test_2(error_cnt)
149149 error_cnt = error_cnt + 1
150150 end if
151151
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+
152178 nullify(inp)
153179
154180 ! trajectory variables:
0 commit comments