(root)/
gcc-13.2.0/
gcc/
testsuite/
gfortran.dg/
global_vars_c_init_driver.c
       1  int i = 2;
       2  void test_globals(void);
       3  
       4  extern void abort(void);
       5  
       6  int main(int argc, char **argv)
       7  {
       8     /* verify that i has been initialized by f90 */
       9     if(i != 2)
      10        abort();
      11     test_globals();
      12     return 0;
      13  }/* end main() */