INTEGER, PARAMETER :: IB4= SELECTED_INT_KIND(9)
REAL X
INTEGER (IB4) N
X=123456789
PRINT '(F12.1)',X
DO N=1,20
   PRINT*,N,SELECTED_INT_KIND(N)
ENDDO
PRINT*, HUGE(N)
END