diff options
| author | Brad King <brad.king@kitware.com> | 2010-02-16 13:24:44 -0500 |
|---|---|---|
| committer | Brad King <brad.king@kitware.com> | 2010-02-16 13:24:44 -0500 |
| commit | 4685872078f71705c53c19d79121bd9d76b83265 (patch) | |
| tree | be3615b6962c8dc821c4bdffb026d8e1bb1e036f | |
| parent | 71e4fe7c7eecaef06ba17bf52f6668080bbe1cdc (diff) | |
| download | cmake-4685872078f71705c53c19d79121bd9d76b83265.tar.gz | |
FortranCInterface: Fix PathScale detection again
PathScale Fortran mangles module symbols as "MY_SUB.in.MY_MODULE" and
also requires "my_module_" when the module is imported. We cannot
provide the symbol with ".in." mangling so we should not provide
"my_module_" because it would duplicate the one in the Fortran-provided
object file.
Commit "FortranCInterface: Fix PathScale detection" (2010-01-22) already
made the same fix for the non-underscore module case.
| -rw-r--r-- | Modules/FortranCInterface/my_module_.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Modules/FortranCInterface/my_module_.c b/Modules/FortranCInterface/my_module_.c index 0d7091f2b6..364b21460e 100644 --- a/Modules/FortranCInterface/my_module_.c +++ b/Modules/FortranCInterface/my_module_.c @@ -1,2 +1,8 @@ +#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 /* PGI Fortran wants my_module_ when calling any my_module symbol. */ void my_module_(void) {} +#endif |