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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [recursive_check_9.f90] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-do run }
! { dg-options "-fcheck=recursion" }
! { dg-shouldfail "Recursion check" }
!
! { dg-output "Fortran runtime error: Recursive call to nonrecursive procedure 'f'" }
!
! PR fortran/39577
!
! Invalid - recursion
program test
 call f(.false.)
 call f(.true.)
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	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-fcheck=recursion" }`
3			`! { dg-shouldfail "Recursion check" }`
4			`!`
5			`! { dg-output "Fortran runtime error: Recursive call to nonrecursive procedure 'f'" }`
6			`!`
7			`! PR fortran/39577`
8			`!`
9			`! Invalid - recursion`
10			`program test`
11			`call f(.false.)`
12			`call f(.true.)`
13			`contains`
14			`subroutine f(rec)`
15			`logical :: rec`
16			`if(rec) then`
17			`call g()`
18			`end if`
19			`return`
20			`end subroutine f`
21			`subroutine g()`
22			`call f(.false.)`
23			`return`
24			`end subroutine g`
25			`end program test`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [recursive_check_9.f90] - Blame information for rev 694