finalyze moving

tests/sapfor/parameter/parameter.f90

@@ -0,0 +1,50 @@
+program PARAMTER
+  call check
+end
+
+module constants
+implicit none
+   real, parameter::pi = 3.1415926536
+   real, parameter::e = 2.7182818285
+contains 
+  subroutine show_consts()
+    print*, "Pi = ", pi
+  contains
+    subroutine show_e()
+	  print*, "e = ", e
+	end subroutine show_e
+  end subroutine show_consts
+end module constants
+
+subroutine check
+implicit none
+use constants!, only: pi, p=>pi
+common /global/ key
+  real key
+  integer n,m,k,l,pn,nl,i,j,ii,jj,nnl
+  parameter(N=6,M=8,K=8,L=6,PN=2,NL=1000)
+  integer  A(N,M,K,L)
+  character*9 tname
+
+  tname='check'
+  NNL=NL
+!$SPF ANALYSIS(PARAMETER(N=N))
+!$SPF ANALYSIS(PARAMETER(N=6))
+!$SPF ANALYSIS(PARAMETER(N=6,M=8))
+!$SPF ANALYSIS(PARAMETER(N=M-2))
+!$SPF ANALYSIS(PARAMETER(A(i,j,ii,jj)=M-2, i=1))
+  do i=1,N
+!$SPF ANALYSIS(PARAMETER(M=8))
+    do j=1,M
+      do ii=1,K
+        do jj=1,L
+!$SPF ANALYSIS(PARAMETER(NL=9*111+1))
+!$SPF ANALYSIS(PARAMETER(A(i,j,ii,jj)=M-2, i=1))
+!$SPF ANALYSIS(PARAMETER(A=(M-2)*key))
+          A(i,j,ii,jj) = NL+i+j+ii+jj
+        enddo
+      enddo
+    enddo
+  enddo
+
+end