program hello integer , pointer :: p(:,:) integer , pointer :: p1(:,:) allocate( p(11:12,21:22) ) p = 1; p(12,22) = 22 print*, p(11:12,21:22) p1(5:,9:) => p(11:12,21:22) deallocate(p) end program Hello
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more