re PR fortran/46896 (Wrong code with transpose(a) passed to subroutine)