diff options
| author | Bernd Edlinger <bernd.edlinger@hotmail.de> | 2014-04-10 14:40:25 +0000 |
|---|---|---|
| committer | Bernd Edlinger <edlinger@gcc.gnu.org> | 2014-04-10 14:40:25 +0000 |
| commit | 073afca6884441dd85e6a5a55acd61c9d1442f7a (patch) | |
| tree | d34c46f09ccc1c256abc8aba5e04ec0e2c2a362a /gcc/fortran/class.c | |
| parent | 87c66338d77671f0c562febddb15eb6890ea196f (diff) | |
| download | gcc-073afca6884441dd85e6a5a55acd61c9d1442f7a.zip gcc-073afca6884441dd85e6a5a55acd61c9d1442f7a.tar.gz gcc-073afca6884441dd85e6a5a55acd61c9d1442f7a.tar.bz2 | |
class.c (gfc_build_class_symbol): Append "_t" to target class names to make the generated type names unique.
gcc:
2014-04-10 Bernd Edlinger <bernd.edlinger@hotmail.de>
* fortran/class.c (gfc_build_class_symbol): Append "_t" to target class
names to make the generated type names unique.
testsuite:
2014-04-10 Bernd Edlinger <bernd.edlinger@hotmail.de>
* gfortran.dg/class_nameclash.f90: New test.
From-SVN: r209277
Diffstat (limited to 'gcc/fortran/class.c')
| -rw-r--r-- | gcc/fortran/class.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c index d01d7d8..346aee6 100644 --- a/gcc/fortran/class.c +++ b/gcc/fortran/class.c @@ -588,13 +588,13 @@ gfc_build_class_symbol (gfc_typespec *ts, symbol_attribute *attr, else if ((*as) && attr->pointer) sprintf (name, "__class_%s_%d_%dp", tname, rank, (*as)->corank); else if ((*as)) - sprintf (name, "__class_%s_%d_%d", tname, rank, (*as)->corank); + sprintf (name, "__class_%s_%d_%dt", tname, rank, (*as)->corank); else if (attr->pointer) sprintf (name, "__class_%s_p", tname); else if (attr->allocatable) sprintf (name, "__class_%s_a", tname); else - sprintf (name, "__class_%s", tname); + sprintf (name, "__class_%s_t", tname); if (ts->u.derived->attr.unlimited_polymorphic) { |