program test_digits
      implicit none
      integer i, ii(10)
      integer*4 j, jj(10)
      integer*8 k, kk(10)
      real x, xx(10)
      real*4 y, yy(10)
      real*8 z, zz(10)
      do 10 i = 1, 10, 1
         ii(i) = i
         jj(i) = i
         kk(i) = i
         xx(i) = i
         yy(i) = i
         zz(i) = i
 10   continue
      i = 12345
      j = 12345
      k = 12345
      x = 1.2345
      y = 1.2345
      z = 1.2345
c     "digits" is in fortran 95 and later, "sizeof" is a GNU extension
      print *,digits(i),' ',sizeof(i),' ',(sizeof(ii)-10*sizeof(i))
      print *,digits(j),' ',sizeof(j),' ',(sizeof(jj)-10*sizeof(j))
      print *,digits(k),' ',sizeof(k),' ',(sizeof(kk)-10*sizeof(k))
      print *,digits(x),' ',sizeof(x),' ',(sizeof(xx)-10*sizeof(x))
      print *,digits(y),' ',sizeof(y),' ',(sizeof(yy)-10*sizeof(y))
      print *,digits(z),' ',sizeof(z),' ',(sizeof(zz)-10*sizeof(z))
      end