We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent e74ab4a commit fd1b606Copy full SHA for fd1b606
test_fms/parser/test_output_yaml.F90
@@ -203,11 +203,12 @@ program test_output_yaml
203
call yaml_out_add_level2key( "order 4",k1(1))
204
call yaml_out_add_level2key( "sides", k2(1))
205
call yaml_out_add_level2key( "specials", k2(2))
206
- call write_yaml_from_struct_3 (trim(filename), 1, k1, v1, a2, k2, v2, a3, (/1, 1, 1, 1, 2, 1/), k3, v3, &
207
- & (/ 1, 1, 1 , 1, 0 ,0 ,0 ,0/))
+ call write_yaml_from_struct_3 (trim(filename) // c_null_char, 1, k1, v1, a2, k2, v2, a3, &
+ & (/1, 1, 1, 1, 2, 1/), k3, v3, (/ 1, 1, 1 , 1, 0 ,0 ,0 ,0/))
208
else
209
!> Write the yaml
210
- call write_yaml_from_struct_3 (trim(filename), 1, k1, v1, a2, k2, v2, a3, a3each, k3, v3,(/3, 0, 0, 0, 0, 0, 0, 0/))
211
+ & a3each, k3, v3, (/3, 0, 0, 0, 0, 0, 0, 0/))
212
endif
213
214
!> Check yaml output against reference
0 commit comments