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  }