18 lines
295 B
C
18 lines
295 B
C
|
/* 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() */
|