src/test/ui/issues/issue-2214.rs

   1 // run-pass
   2 // ignore-wasm32-bare no libc to test ffi with
   3 // ignore-sgx no libc
   4 #![feature(rustc_private)]
   5
   6 extern crate libc;
   7
   8 use std::mem;
   9 use libc::{c_double, c_int};
  10
  11 fn to_c_int(v: &mut isize) -> &mut c_int {
  12     unsafe {
  13         mem::transmute_copy(&v)
  14     }
  15 }
  16
  17 fn lgamma(n: c_double, value: &mut isize) -> c_double {
  18     unsafe {
  19         return m::lgamma(n, to_c_int(value));
  20     }
  21 }
  22
  23 mod m {
  24     use libc::{c_double, c_int};
  25
  26     extern {
  27         #[cfg(any(all(unix, not(target_os = "vxworks")), target_os = "cloudabi"))]
  28         #[link_name="lgamma_r"]
  29         pub fn lgamma(n: c_double, sign: &mut c_int) -> c_double;
  30         #[cfg(windows)]
  31         #[link_name="lgamma"]
  32         pub fn lgamma(n: c_double, sign: &mut c_int) -> c_double;
  33         #[cfg(target_os = "vxworks")]
  34         #[link_name="lgamma"]
  35         pub fn lgamma(n: c_double, sign: &mut c_int) -> c_double;
  36     }
  37 }
  38
  39 pub fn main() {
  40   let mut y: isize = 5;
  41   let x: &mut isize = &mut y;
  42   assert_eq!(lgamma(1.0 as c_double, x), 0.0 as c_double);
  43 }