printing integer(kind=16) values?

[Steve Kargl]

On amd64-*-freebsd, we have an integer(kind=16) type.

troutmask:sgk[242] more ./amd64-unknown-freebsd6.0/libgfortran/selected_int_kind.inc
  integer, parameter :: c = 5
  type (int_info), parameter :: int_infos(c) = (/ &
    int_info (1, range(0_1)), &
    int_info (2, range(0_2)), &
    int_info (4, range(0_4)), &
    int_info (8, range(0_8)), &
    int_info (16, range(0_16)) /)

The following compiles with a patch I'm testing, but
the value of c is not printed.  Should we artificially
exclude integer(kind=16)?

program za
  implicit none
  integer, parameter :: i4  = SELECTED_INT_KIND(5)
  integer, parameter :: i8  = SELECTED_INT_KIND(10)
  integer, parameter :: i16 = SELECTED_INT_KIND(20)
  integer(i4) :: a
  integer(i8) :: b
  integer(i16) :: c
!  data a / Z'4002800000000000'/
  data b / Z'4002800000000000'/
  data c / Z'400280000000000000'/
  print *, a, b, c
end program za

-- 
Steve