gcc/testsuite/gfortran.dg/bind_c_usage_10_c.c

   1 /* Check BIND(C) for ENTRY
   2    PR fortran/34079
   3    To be linked with bind_c_usage_10.f03
   4 */
   5
   6 void mySub1(int *);
   7 void mySub3(int *);
   8 void mySubEnt2(float *);
   9 void mySubEnt3(float *);
  10 void sub4ent(float *);
  11
  12 int myFunc1(void);
  13 int myFunc3(void);
  14 float myFuncEnt2(void);
  15 float myFuncEnt3(void);
  16 float func4ent(void);
  17
  18 extern void abort(void);
  19
  20 int main()
  21 {
  22   int i = -1;
  23   float r = -3.0f;
  24
  25   mySub1(&i);
  26   if(i != 5) abort();
  27   mySub3(&i);
  28   if(i != 7) abort();
  29   mySubEnt2(&r);
  30   if(r != 66.0f) abort();
  31   mySubEnt3(&r);
  32   if(r != 77.0f) abort();
  33   sub4ent(&r);
  34   if(r != 88.0f) abort();
  35
  36   i = myFunc1();
  37   if(i != -5) abort();
  38   i = myFunc3();
  39   if(i != -7) abort();
  40   r = myFuncEnt2();
  41   if(r != -66.0f) abort();
  42   r = myFuncEnt3();
  43   if(r != -77.0f) abort();
  44   r = func4ent();
  45   if(r != -88.0f) abort();
  46
  47   return 0;
  48 }