gcc/testsuite/gfortran.dg/global_vars_f90_init_driver.c

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