gcc/testsuite/gfortran.dg/bind_c_usage_33_c.c

   1 #include <stdio.h>
   2
   3 void odopen(int*);
   4
   5 int main()
   6 {
   7   int unit = 42;
   8   odopen(&unit);
   9   if (unit != 8)
  10     {
  11       fprintf(stderr,"wrong result");
  12       return 1;
  13     }
  14    return 0;
  15 }