repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
* gcc.target/i386/mpx/hard-reg-1-nov.c (mpx_test): Use "esp"
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
global_vars_f90_init_driver.c
blob
7869c83f71254d3269404331aac56c38abbc7521
1
/* initialized by fortran */
2
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() */