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

--- Comment #1 from Jordan <8e3g6jay6 at mozmail dot com> ---
Here's a simplified version that does the same:

program oh_no
   use, intrinsic :: iso_c_binding
   implicit none

   integer(c_int) :: w

   w = 1

   do
      w = w + w
      ! IT'S 0?!
      print*,w
   end do
end program oh_no

Reply via email to