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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! { dg-options "-fcheck=recursion" }
3
!
4
! PR fortran/39577
5
!
6
! OK - no recursion
7
program test
8
 integer :: i
9
 i = f(.false.)
10
 print *,i
11
 i = f(.false.)
12
 print *,i
13
contains
14
  integer function f(rec)
15
    logical :: rec
16
    if(rec) then
17
      f = g()
18
    else
19
      f = 42
20
    end if
21
  end function f
22
  integer function g()
23
    g = f(.false.)
24
  end function g
25
end program test

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.