      program test09
      do ! forever
        call sub1
      enddo
      end program
      
      subroutine sub1()
      real (kind=8)       ::a(2,20)
      real (kind=8),static::b(2,20)=3.D0
      real (kind=8),SAVE  ::c(2,20)=5.D0
      real (kind=8)::d1,d2=17.D0
      print *,a(2,2),b(2,4),c(1,6)
      print *,d1,d2
      read (*,*)
      a(2,2)=a(2,2)+0.1D0
      b(2,4)=b(2,4)+0.25D0
      c(1,6)=c(1,6)+0.125D0
      d1     =d1+0.0625D0
      d2     =d2-0.03125D0
      end