Skip to content

Commit fd1b606

Browse files
authored
fix: add c_null_char to file name in diag manager output yaml test (#1604)
1 parent e74ab4a commit fd1b606

File tree

1 file changed

+4
-3
lines changed

1 file changed

+4
-3
lines changed

test_fms/parser/test_output_yaml.F90

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -203,11 +203,12 @@ program test_output_yaml
203203
call yaml_out_add_level2key( "order 4",k1(1))
204204
call yaml_out_add_level2key( "sides", k2(1))
205205
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/))
206+
call write_yaml_from_struct_3 (trim(filename) // c_null_char, 1, k1, v1, a2, k2, v2, a3, &
207+
& (/1, 1, 1, 1, 2, 1/), k3, v3, (/ 1, 1, 1 , 1, 0 ,0 ,0 ,0/))
208208
else
209209
!> 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/))
210+
call write_yaml_from_struct_3 (trim(filename) // c_null_char, 1, k1, v1, a2, k2, v2, a3, &
211+
& a3each, k3, v3, (/3, 0, 0, 0, 0, 0, 0, 0/))
211212
endif
212213

213214
!> Check yaml output against reference

0 commit comments

Comments
 (0)