blob: 9e010439600280c2a874e7f76b180b762f8ea0f3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
/* in fortran module */
void test0(void);
extern void abort(void);
int main(int argc, char **argv)
{
test0();
return 0;
}/* end main() */
void test_address(void *c_ptr, int expected_value)
{
if((*(int *)(c_ptr)) != expected_value)
abort();
return;
}/* end test_address() */
|