gcc/testsuite/gfortran.fortran-torture/compile/inline_1.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

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