1 /* Check BIND(C) for ENTRY
3 To be linked with bind_c_usage_10.f03
8 void mySubEnt2(float *);
9 void mySubEnt3(float *);
10 void sub4ent(float *);
14 float myFuncEnt2(void);
15 float myFuncEnt3(void);
18 extern void abort(void);
30 if(r
!= 66.0f
) abort();
32 if(r
!= 77.0f
) abort();
34 if(r
!= 88.0f
) abort();
41 if(r
!= -66.0f
) abort();
43 if(r
!= -77.0f
) abort();
45 if(r
!= -88.0f
) abort();