1  /* initialized by fortran */
       2  extern int i;
       3  void test_globals(void);
       4  
       5  extern void abort(void);
       6  
       7  int main(int argc, char **argv)
       8  {
       9     /* verify that i has been initialized by f90 */
      10     if(i != 2)
      11        abort();
      12     test_globals();
      13     return 0;
      14  }/* end main() */