https://gcc.gnu.org/bugzilla/show_bug.cgi?id=124111
--- Comment #6 from Sam James <sjames at gcc dot gnu.org> ---
#0 require_type (dtp=dtp@entry=0x7ffffffb2140,
expected=expected@entry=BT_INTEGER, actual=actual@entry=BT_REAL,
f=f@entry=0x5555555893e8) at /home/sam/git/gcc/libgfortran/io/transfer.c:1484
#1 0x00007ffff7d9e725 in formatted_transfer_scalar_write
(dtp=dtp@entry=0x7ffffffb2140, type=BT_REAL, type@entry=BT_COMPLEX,
p=p@entry=0x7ffffffb20b0, kind=kind@entry=4, size=4, size@entry=8)
at /home/sam/git/gcc/libgfortran/io/transfer.c:2126
#2 0x00007ffff7d9f1e0 in formatted_transfer (dtp=0x7ffffffb2140,
type=BT_COMPLEX, p=<optimized out>, kind=4, size=8, nelems=1) at
/home/sam/git/gcc/libgfortran/io/transfer.c:2557
#3 0x00007ffff7d9af93 in wrap_scalar_transfer (dtp=dtp@entry=0x7ffffffb2140,
type=type@entry=BT_COMPLEX, p=p@entry=0x7ffffffb20b0, kind=kind@entry=4,
size=<optimized out>, n_elem=n_elem@entry=1)
at /home/sam/git/gcc/libgfortran/io/transfer.c:2591
#4 0x00007ffff7d9c06d in _gfortran_transfer_complex (dtp=0x7ffffffb2140,
p=0x7ffffffb20b0, kind=4) at /home/sam/git/gcc/libgfortran/io/transfer.c:2694
#5 0x00007ffff7d9c07c in _gfortran_transfer_complex_write (dtp=<optimized
out>, p=<optimized out>, kind=<optimized out>) at
/home/sam/git/gcc/libgfortran/io/transfer.c:2700
#6 0x000055555555685f in cchk6 (sname=..., eps=1.1920929e-07, thresh=16,
nout=6, ntra=-1, trace=.FALSE., rewi=.FALSE., fatal=.TRUE., nidim=6, idim=...,
nalf=3, alf=..., nbet=3, bet=..., nmax=65, a=...,
aa=..., as=..., b=..., bb=..., bs=..., c=..., cc=..., cs=..., ct=...,
g=..., _sname=7) at
/home/sam/bugs/lapack/lapack-3.12.1/BLAS/TESTING/cblat3.f:3960
#7 0x0000555555575178 in cblat3 () at
/home/sam/bugs/lapack/lapack-3.12.1/BLAS/TESTING/cblat3.f:354
(gdb) p *f
$13 = {format = FMT_I, pushed = FMT_NONE, repeat = 1, next = 0x555555589430,
source = 0x55555557b7f6 "3, ',' ), '(', F4.1, ',', F4.1, '), A,', I3, ', B,',
I3, ',(', F4.1, ',', F4.1, '), C,', I3, ').' )",
u = {real = {w = 3, d = -1, e = 0}, string = {length = 3, p = 0x0}, integer =
{w = 3, m = -1}, udf = {string = 0xffffffff00000003 <error: Cannot access
memory at address 0xffffffff00000003>, string_len = 0,
vlist = 0x0}, w = 3, k = 3, r = 3, n = 3, child = 0xffffffff00000003},
count = 1, current = 0x0}
(gdb) frame 6
#6 0x000055555555685f in cchk6 (sname=..., eps=1.1920929e-07, thresh=16,
nout=6, ntra=-1, trace=.FALSE., rewi=.FALSE., fatal=.TRUE., nidim=6, idim=...,
nalf=3, alf=..., nbet=3, bet=..., nmax=65, a=...,
aa=..., as=..., b=..., bb=..., bs=..., c=..., cc=..., cs=..., ct=...,
g=..., _sname=7) at
/home/sam/bugs/lapack/lapack-3.12.1/BLAS/TESTING/cblat3.f:3960
3960 $ ALPHA, LDA, LDB, BETA, LDC
(gdb) list
3955 GO TO 130
3956 *
3957 120 CONTINUE
3958 WRITE( NOUT, FMT = 9996 )SNAME
3959 WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, N, K,
3960 $ ALPHA, LDA, LDB, BETA, LDC
3961 *
3962 130 CONTINUE
3963 RETURN
3964 *
