2010-02-16 21:24:44 +03:00
|
|
|
#if defined(__PATHSCALE__)
|
|
|
|
/* PathScale Fortran wants my_module_ when calling any my_module symbol,
|
|
|
|
but module symbols use '.in.' so we cannot provide them anyway. */
|
|
|
|
void pathscale_my_module_(void) {}
|
|
|
|
#else
|
2009-08-06 01:07:36 +04:00
|
|
|
/* PGI Fortran wants my_module_ when calling any my_module symbol. */
|
|
|
|
void my_module_(void) {}
|
2010-02-16 21:24:44 +03:00
|
|
|
#endif
|