summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.fortran-torture/compile/inline_1.f90
blob: 4c05baaaa3e25201ecf2c44e9981b982f59ecbee (plain)
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