1program gfcbug43 2 call try_fit (1) 3 call try_fit (1) 4contains 5 subroutine try_fit (k) 6 call fit (1, debug=.true.) 7 end subroutine try_fit 8 subroutine fit (k, debug) 9 logical, intent(in), optional :: debug 10 do j = 1, 2 11 maxerr1 = funk (r ,x1 , x1) 12 end do 13 if (debug) then 14 print *, "help" 15 end if 16 end subroutine fit 17end program gfcbug43 18