URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [inline_1.f90] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log


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

Line No.	Rev	Author	Line
1	695	jeremybenn	`program gfcbug43`
2			`call try_fit (1)`
3			`call try_fit (1)`
4			`contains`
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`
17			`end program gfcbug43`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [inline_1.f90] - Blame information for rev 801