------- Comment #5 from pinskia at gcc dot gnu dot org 2006-11-10 02:38 ------- Reduced testcase: program gfcbug43 call try_fit (1) call try_fit (1) contains subroutine try_fit (k) call fit (1, debug=.true.) end subroutine try_fit subroutine fit (k, debug) logical, intent(in), optional :: debug do j = 1, 2 maxerr1 = funk (r ,x1 , x1) end do if (debug) then print "help" end if end subroutine fit end program gfcbug43
------ This is a bug with the inliner and I think there might be a dup of this bug somewhere. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29788