All pastes #2085458 Raw Edit

iso_c_binding test

public text v1 · immutable
#2085458 ·published 2011-09-29 23:14 UTC
rendered paste body
#include <iostream>
extern "C" void fooFortran();
  
extern "C" void fooC(int* outVal, double *ioArr) {
 printf("C:fooC ioArr read as: ");
 for ( int i=0; i < *outVal; i++) {
   printf(" %f ", ioArr[i]);
 }
 printf("\n");
 ioArr[0] = 42.4242;
 printf("C:fooC ioArr modified to: ");
 for ( int i=0; i < *outVal; i++) {
   printf(" %f ", ioArr[i]);
 }
 printf("\n");
}

int main() {
 fooFortran();
 return 0;
}