blob: 332a4ed1d872eb9874791670ccd0c4b97ad7160c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { dg-do run }
! { dg-options "-g" }
integer :: a(10), b(12)
call sub (a, 10)
call sub (b, 12)
write (*,*) a, b
end
subroutine sub (a, n)
integer :: a(n), n
do i = 1, n
a(i) = i
end do
write (*,*) a ! { dg-final { gdb-test 14 "a(10)" "10" } }
end subroutine
|