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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do run }
! { dg-options "-frecursive" }
program recursive_stack
  call foo (.true.)
end program recursive_stack
 
subroutine foo (recurse)
  logical recurse
  integer iarray(100,100)
  if (recurse) then
     iarray(49,49) = 17
     call bar
     if (iarray(49,49) .ne. 17) call abort
  else
     iarray(49,49) = 21
  end if
end subroutine foo
 
subroutine bar
  call foo (.false.)
end subroutine bar

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-frecursive" }`
3			`program recursive_stack`
4			`call foo (.true.)`
5			`end program recursive_stack`
6
7			`subroutine foo (recurse)`
8			`logical recurse`
9			`integer iarray(100,100)`
10			`if (recurse) then`
11			`iarray(49,49) = 17`
12			`call bar`
13			`if (iarray(49,49) .ne. 17) call abort`
14			`else`
15			`iarray(49,49) = 21`
16			`end if`
17			`end subroutine foo`
18
19			`subroutine bar`
20			`call foo (.false.)`
21			`end subroutine bar`

Browse

Tools

Subversion Repositories openrisc

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