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