enum, bind(c) :: nametype
  enumerator :: one=1, two, three
end enum nametype