[Bug fortran/51218] [4.7 Regression] Potential optimization bug due to implicit_pure?

[anlauf at gmx dot de]

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

--- Comment #9 from Harald Anlauf <anlauf at gmx dot de> 2011-11-19 10:35:11 
UTC ---
(In reply to comment #7)
> c) The reason why this function call was inlined was that the
>    implicit_pure attribute is set on the function.  This is
>    bogus.

Good point.

Adding:

  volatile :: xi, wi

in main solves the problem.