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