load_lib dwarf-lib.exp
load_lib dwarf.exp

set asm_file invalid-dw-at-stmt-list-encoding-dw.S

Dwarf::assemble $asm_file {
    cu {} {
	DW_TAG_compile_unit {
	    {DW_AT_language @DW_LANG_C}
	    {DW_AT_name     foo.c}
	    {DW_AT_comp_dir /bar}
            {stmt_list 0 DW_FORM_addr}
	} {
	    DW_TAG_base_type {
		{DW_AT_byte_size 4 DW_FORM_data1}
		{DW_AT_name integer}
	    }
	}
    }

}