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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [recursive_check_8.f90] - Blame information for rev 302

Details | Compare with Previous | View Log


! { dg-do run }
! { dg-options "-fcheck=recursion" }
!
! PR fortran/39577
!
! OK - no recursion
program test
 call f(.false.)
 call f(.false.)
contains
  subroutine f(rec)
    logical :: rec
    if(rec) then
      call g()
    end if
    return
  end subroutine f
  subroutine g()
    call f(.false.)
    return
  end subroutine g
end program test

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-fcheck=recursion" }`
3			`!`
4			`! PR fortran/39577`
5			`!`
6			`! OK - no recursion`
7			`program test`
8			`call f(.false.)`
9			`call f(.false.)`
10			`contains`
11			`subroutine f(rec)`
12			`logical :: rec`
13			`if(rec) then`
14			`call g()`
15			`end if`
16			`return`
17			`end subroutine f`
18			`subroutine g()`
19			`call f(.false.)`
20			`return`
21			`end subroutine g`
22			`end program test`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [recursive_check_8.f90] - Blame information for rev 302