program have_fc_int_quad
implicit none
integer*16 my_int
integer(kind=16) :: my_int2
end program have_fc_int_quad