[PATCH] gdb/testsuite/fortran: Add mixed language stack test

[Tom de Vries]

On 05-03-2020 22:09, Andrew Burgess wrote:
> +	if { $lang == "fortran" } {
> +	    set obj_pattern " = \\( base_one = \\( num1 = 1, num2 = 2, num3 = 3 \\), base_two = \\( string = 0x6184e0 'Something in C\\+\\+\\\\000', val = 3.5 \\), xxx = 9, yyy = 10.5 \\)"
> +	} else {
> +	    set obj_pattern " = \\{<base_one> = \\{num1 = 1, num2 = 2, num3 = 3\\}, <base_two> = \\{string = 0x6184e0 \"Something in C\\+\\+\", val = 3.5\\}, xxx = 9, yyy = 10.5\\}"
> +	}

FAILs for me due to hard-coded string address:
...
print obj^M
$1 = {<base_one> = {num1 = 1, num2 = 2, num3 = 3}, <base_two> = {string
= 0x618430 "Something in C++", val = 3.5}, xxx = 9, yyy = 10.5}^M
(gdb) FAIL: gdb.fortran/mixed-lang-stack.exp: lang=auto: print obj
...

Thanks,
- Tom