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