[Bug fortran/50327] [4.7 Regression] Front-end optimization generates wrong code for BLAS's srotmg

[tkoenig at gcc dot gnu.org]

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

--- Comment #3 from Thomas Koenig <tkoenig at gcc dot gnu.org> 2011-09-09 
21:59:51 UTC ---
Created attachment 25236
  --> http://gcc.gnu.org/bugzilla/attachment.cgi?id=25236
Tentative patch

This one replaces a DO WHILE loop with its equivalent,
DO 
IF (.not. ...) EXIT

form.

Seems to work.