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() */