Sign in
gnu
/
gcc
/
cd2fd5facb5e1882d3f338ed456ae9536f7c0593
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
global_vars_f90_init_driver.c
blob: 27ba7e656d0c354ed8dc504c0cd42855e309cdaa [
file
] [
log
] [
blame
]
/* initialized by fortran */
extern
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() */