2010-03-17 14:00:29 +02:00
|
|
|
#if defined(__PATHSCALE__)
|
|
|
|
|
/* PathScale Fortran wants mymodule_ when calling any mymodule symbol,
|
|
|
|
|
but module symbols use '.in.' so we cannot provide them anyway. */
|
|
|
|
|
void pathscale_mymodule_(void) {}
|
|
|
|
|
#else
|
2009-10-04 10:30:41 +03:00
|
|
|
/* PGI Fortran wants mymodule_ when calling any mymodule symbol. */
|
|
|
|
|
void mymodule_(void) {}
|
2010-03-17 14:00:29 +02:00
|
|
|
#endif
|
