Sign in
chromium
/
native_client
/
nacl-toolchain
/
cc3d67a9abb3eceb0d79d5369b40b41f67e2474b
/
.
/
gcc
/
gcc
/
testsuite
/
gfortran.dg
/
global_vars_f90_init_driver.c
blob: 7869c83f71254d3269404331aac56c38abbc7521 [
file
] [
log
] [
blame
]
/* initialized by fortran */
int
i
;
void
test_globals
(
void
);
extern
void
abort
(
void
);
int
main
(
int
argc
,
char
**
argv
)
{
/* verify that i has been initialized by f90 */
if
(
i
!=
2
)
abort
();
test_globals
();
return
0
;
}
/* end main() */