[Bug target/71270] [7 Regression] fortran regression after fix SLP PR58135

[vekumar at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71270

--- Comment #5 from vekumar at gcc dot gnu.org ---
The expand dump after SLP split 

---snip--
;; MEM[(logical(kind=1) *)&A.8] = { 1, 0, 1, 0 };

(insn 71 70 72 (set (reg:SI 308)
        (const_int 16777472 [0x1000100])) intrinsic_pack_1.f90:49 -1
     (nil))

(insn 72 71 0 (set (mem/c:SI (plus:SI (reg/f:SI 105 virtual-stack-vars)
                (const_int -576 [0xfffffffffffffdc0])) [8
MEM[(logical(kind=1)D.7 *)&A.8D.3679]+0 S4 A64])
        (reg:SI 308)) intrinsic_pack_1.f90:49 -1
     (nil))

;; MEM[(logical(kind=1) *)&A.8 + 4B] = { 1, 0, 1, 0 };

(insn 73 72 74 (set (reg:SI 309)
        (const_int 16777472 [0x1000100])) intrinsic_pack_1.f90:49 -1
     (nil))

(insn 74 73 0 (set (mem/c:SI (plus:SI (reg/f:SI 105 virtual-stack-vars)
                (const_int -572 [0xfffffffffffffdc4])) [8
MEM[(logical(kind=1)D.7 *)&A.8D.3679 + 4B]+0 S4 A32])
        (reg:SI 309)) intrinsic_pack_1.f90:49 -1
     (nil))

;; MEM[(logical(kind=1)[9] *)&A.8][8] = 1;

(insn 75 74 76 (set (reg:SI 310)
        (const_int 1 [0x1])) intrinsic_pack_1.f90:49 -1
     (nil))

(insn 76 75 77 (set (reg:QI 311)
        (subreg:QI (reg:SI 310) 3)) intrinsic_pack_1.f90:49 -1
     (nil))

(insn 77 76 0 (set (mem/c:QI (plus:SI (reg/f:SI 105 virtual-stack-vars)
                (const_int -568 [0xfffffffffffffdc8])) [8 A.8D.3679+8 S1 A64])
        (reg:QI 311)) intrinsic_pack_1.f90:49 -1
     (nil))
--snip---