Merged with mainline at revision 126229.
[official-gcc.git] / gcc / testsuite / gfortran.dg / global_vars_f90_init_driver.c
blob7869c83f71254d3269404331aac56c38abbc7521
1 /* initialized by fortran */
2 int i;
3 void test_globals(void);
5 extern void abort(void);
7 int main(int argc, char **argv)
9 /* verify that i has been initialized by f90 */
10 if(i != 2)
11 abort();
12 test_globals();
13 return 0;
14 }/* end main() */