blob: 6311f274c8ae0128a63ccdd1de9c98f0b5d2165a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { dg-do compile }
! { dg-options "-fcray-pointer" }
!
! Test for PR37039, from an issue on comp.lang.fortran
! http://groups.google.com/group/comp.lang.fortran/msg/8cfa06f222721386
subroutine test(nnode)
implicit none
integer n,nnode
pointer(ip_tab, tab)
integer , dimension(1:nnode) :: tab
do n=1,nnode
tab(n) = 0
enddo
end subroutine test
|
