https://gcc.gnu.org/bugzilla/show_bug.cgi?id=91071
--- Comment #3 from Martin Liška <marxin at gcc dot gnu.org> --- First diff: $ diff -u good/*120* bad/*120* --- good/block_solver.f.120t.reassoc1 2019-07-03 13:26:25.493543294 +0200 +++ bad/block_solver.f.120t.reassoc1 2019-07-03 13:25:54.597906149 +0200 @@ -116,6 +116,7 @@ integer(kind=8) _52; real(kind=8) _53; real(kind=8) _54; + real(kind=8) _55; real(kind=8) _56; integer(kind=8) _57; integer(kind=8) _58; @@ -124,6 +125,7 @@ integer(kind=8) _61; real(kind=8) _62; real(kind=8) _63; + real(kind=8) _64; real(kind=8) _65; integer(kind=8) _66; integer(kind=8) _67; @@ -133,6 +135,7 @@ integer(kind=8) _71; real(kind=8) _72; real(kind=8) _73; + real(kind=8) _74; real(kind=8) _75; integer(kind=8) _76; integer(kind=8) _77; @@ -140,6 +143,7 @@ integer(kind=8) _79; real(kind=8) _80; real(kind=8) _81; + real(kind=8) _82; real(kind=8) _83; integer(kind=8) _84; integer(kind=8) _85; @@ -148,6 +152,7 @@ integer(kind=8) _88; real(kind=8) _89; real(kind=8) _90; + real(kind=8) _91; real(kind=8) _92; integer(kind=8) _93; integer(kind=8) _94; @@ -158,12 +163,7 @@ real(kind=8) _99; real(kind=8) _100; real(kind=8) _101; - real(kind=8) _102; - real(kind=8) _103; - real(kind=8) _104; real(kind=8) _107; - real(kind=8) _108; - real(kind=8) _109; integer(kind=8) stride.88_115; integer(kind=8) stride.90_118; integer(kind=8) stride.90_119; @@ -416,6 +416,7 @@ _53 = (*x_142(D))[_52]; _54 = _48 * _53; _107 = _46 + _54; + _55 = _107 + _32; _56 = (*ayp_144(D))[_42]; _57 = (integer(kind=8)) jp1_136; _58 = _57 * stride.90_119; @@ -424,6 +425,7 @@ _61 = _39 + _60; _62 = (*x_142(D))[_61]; _63 = _56 * _62; + _64 = _55 + _63; _65 = (*azp_145(D))[_42]; _66 = (integer(kind=8)) kp1_134; _67 = _66 * stride.92_123; @@ -433,8 +435,7 @@ _71 = _39 + _70; _72 = (*x_142(D))[_71]; _73 = _65 * _72; - _104 = _63 + _73; - _109 = _107 + _104; + _74 = _64 + _73; _75 = (*axm_146(D))[_42]; _76 = (integer(kind=8)) im1_137; _77 = _76 * stride.88_115; @@ -442,6 +443,7 @@ _79 = _39 + _78; _80 = (*x_142(D))[_79]; _81 = _75 * _80; + _82 = _74 + _81; _83 = (*aym_147(D))[_42]; _84 = (integer(kind=8)) jm1_135; _85 = _84 * stride.90_119; @@ -450,7 +452,7 @@ _88 = _39 + _87; _89 = (*x_142(D))[_88]; _90 = _83 * _89; - _108 = _81 + _90; + _91 = _82 + _90; _92 = (*azm_148(D))[_42]; _93 = (integer(kind=8)) km1_133; _94 = _93 * stride.92_123; @@ -460,9 +462,7 @@ _98 = _39 + _97; _99 = (*x_142(D))[_98]; _100 = _92 * _99; - _103 = _100 + _32; - _102 = _108 + _103; - _101 = _109 + _102; + _101 = _91 + _100; (*y_139(D))[_31] = _101; m_150 = m_202 + 1; # DEBUG m => m_150
