Package org.renjin.gcc.runtime

Examples of org.renjin.gcc.runtime.DoublePtr.unwrap()

180
181
182
183
184
185
186
187
188
189
190
    Method method = clazz.getMethod("testmax", DoublePtr.class);
   
    DoublePtr x = new DoublePtr(-1);
    method.invoke(null, x);

    assertThat(x.unwrap(), equalTo(0d));
   
    x = new DoublePtr(Double.NaN);
    method.invoke(null, x);
   
    System.out.println(x.unwrap());
View Full Code Here
185
186
187
188
189
190
191
192
193
194
195
    assertThat(x.unwrap(), equalTo(0d));
   
    x = new DoublePtr(Double.NaN);
    method.invoke(null, x);
   
    System.out.println(x.unwrap());
   
    assertTrue(Double.isNaN(x.unwrap()));
  }

  @Test
View Full Code Here
187
188
189
190
191
192
193
194
195
196
197
    x = new DoublePtr(Double.NaN);
    method.invoke(null, x);
   
    System.out.println(x.unwrap());
   
    assertTrue(Double.isNaN(x.unwrap()));
  }

  @Test
  public void fortran2darrays() throws Exception {
    Class clazz = compile("2darray.f", "ArrayTest");
View Full Code Here
210
211
212
213
214
215
216
217
218
219
220
    DoublePtr y = new DoublePtr(0);
    method = clazz.getMethod("localarray_", DoublePtr.class);
    method.invoke(null, y);

    assertThat(y.unwrap(), equalTo(110d));
  }

  @Test
  public void arrayC() throws Exception {
    Class clazz = compile("array.c", "ArrayCTest");
View Full Code Here
43
44
45
46
47
48
49
50
51
52
    DoublePtr y = new DoublePtr(0);
    method = clazz.getMethod("localarray_", DoublePtr.class);
    method.invoke(null, y);

    assertThat(y.unwrap(), equalTo(110d));

  }

}
View Full Code Here
TOP
Copyright © 2018 www.massapi.com. All rights reserved.
All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.