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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-g" }`
3			`integer :: a(10), b(12)`
4			`call sub (a, 10)`
5			`call sub (b, 12)`
6			`write (,) a, b`
7			`end`
8
9			`subroutine sub (a, n)`
10			`integer :: a(n), n`
11			`do i = 1, n`
12			`a(i) = i`
13			`end do`
14			`write (,) a ! { dg-final { gdb-test 14 "a(10)" "10" } }`
15			`end subroutine`