[Bug fortran/42131] Weird translation of DO loops

[tkoenig at gcc dot gnu dot org]

------- Comment #13 from tkoenig at gcc dot gnu dot org  2009-11-26 21:56 
-------
Created an attachment (id=19159)
 --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=19159&action=view)
patch that implements the multiplication idea

This generates

   if (D.1339 > 0)
      {
        if (D.1338 < D.1337)
          {
            goto L.2;
          }
        else
          {
            step_sign.2 = 1;
          }
      }
    else
      {
        if (D.1338 > D.1337)
          {
            goto L.2;
          }
        else
          {
            step_sign.2 = -1;
          }
      }
    countm1.1 = (((character(kind=4)) D.1338 - (character(kind=4)) D.1337) *
(character(kind=4)) step_sign.2) / (character(kind=4)) (step_sign.2 * D.1339);

implementing the multiplication idea outlined above, and passes at
least do_3.F90.

Better?


-- 

tkoenig at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
  Attachment #19104|0                           |1
        is obsolete|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42131