simplify

4 years ago · 8e78f0c8cd
parent c9c6a2967a
commit 8e78f0c8cd
1 changed files with 1 additions and 3 deletions
--- a/array_copy.f90
+++ b/array_copy.f90
@ -42,12 +42,10 @@ program test
    implicit none

    complex, dimension(:), allocatable, target :: alloc
-    complex, dimension(:), pointer, contiguous :: stor
    complex, dimension(:,:,:,:), pointer, contiguous :: p

    allocate(alloc(10240))
-    stor => alloc
-    p(0:15,0:15,1:2,1:20) => stor
+    p(0:15,0:15,1:2,1:20) => alloc

    call printAddress("p        ", p)
    call printAddress("p slice 1", p(:,:,:,1))