Tests/Fortran/myc.c


1
2
3
4
5
6
7
8
9
10
11
12

#include "foo.h"
extern void F_test_mod_sub(void);
extern void F_mysub(void);
int myc(void)
{
  F_mysub();
  F_my_sub();
#ifdef TEST_MOD
  F_test_mod_sub();
#endif
  return 0;
}