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