aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran
diff options
context:
space:
mode:
authorJanus Weil <janus@gcc.gnu.org>2010-08-01 21:21:49 +0200
committerJanus Weil <janus@gcc.gnu.org>2010-08-01 21:21:49 +0200
commitf3f98a1e513a34b3de6a46ef732d02c2a14a6a3e (patch)
treed126ebbe2b9edcbf2625ee091a4729a1fbf99798 /gcc/fortran
parent47dad3ff97135ef8a26e0ecbc2170fba6c4e89be (diff)
downloadgcc-f3f98a1e513a34b3de6a46ef732d02c2a14a6a3e.zip
gcc-f3f98a1e513a34b3de6a46ef732d02c2a14a6a3e.tar.gz
gcc-f3f98a1e513a34b3de6a46ef732d02c2a14a6a3e.tar.bz2
re PR fortran/44912 ([OOP] Segmentation fault on TBP)
2010-08-01 Janus Weil <janus@gcc.gnu.org> PR fortran/44912 * class.c (gfc_build_class_symbol): Make '$vptr' component private. (gfc_find_derived_vtab): Make vtabs and vtypes public. * module.c (read_module): When reading module files, always import vtab and vtype symbols. 2010-08-01 Janus Weil <janus@gcc.gnu.org> PR fortran/44912 * gfortran.dg/typebound_call_17.f03: New. From-SVN: r162804
Diffstat (limited to 'gcc/fortran')
-rw-r--r--gcc/fortran/ChangeLog8
-rw-r--r--gcc/fortran/class.c3
-rw-r--r--gcc/fortran/module.c5
3 files changed, 16 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 1bc2a1f..fa41c8a 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,11 @@
+2010-08-01 Janus Weil <janus@gcc.gnu.org>
+
+ PR fortran/44912
+ * class.c (gfc_build_class_symbol): Make '$vptr' component private.
+ (gfc_find_derived_vtab): Make vtabs and vtypes public.
+ * module.c (read_module): When reading module files, always import
+ vtab and vtype symbols.
+
2010-07-31 Mikael Morin <mikael@gcc.gnu.org>
PR fortran/42051
diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c
index b3a558b..9393b56 100644
--- a/gcc/fortran/class.c
+++ b/gcc/fortran/class.c
@@ -178,6 +178,7 @@ gfc_build_class_symbol (gfc_typespec *ts, symbol_attribute *attr,
gcc_assert (vtab);
c->ts.u.derived = vtab->ts.u.derived;
}
+ c->attr.access = ACCESS_PRIVATE;
c->attr.pointer = 1;
}
@@ -343,6 +344,7 @@ gfc_find_derived_vtab (gfc_symbol *derived)
vtab->attr.target = 1;
vtab->attr.save = SAVE_EXPLICIT;
vtab->attr.vtab = 1;
+ vtab->attr.access = ACCESS_PUBLIC;
vtab->refs++;
gfc_set_sym_referenced (vtab);
sprintf (name, "vtype$%s", derived->name);
@@ -357,6 +359,7 @@ gfc_find_derived_vtab (gfc_symbol *derived)
if (gfc_add_flavor (&vtype->attr, FL_DERIVED,
NULL, &gfc_current_locus) == FAILURE)
goto cleanup;
+ vtype->attr.access = ACCESS_PUBLIC;
vtype->refs++;
gfc_set_sym_referenced (vtype);
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index 426a17c..d68e868 100644
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -4370,6 +4370,11 @@ read_module (void)
if (p == NULL && strcmp (name, module_name) == 0)
p = name;
+ /* Exception: Always import vtabs & vtypes. */
+ if (p == NULL && (strcmp (xstrndup (name,5), "vtab$") == 0
+ || strcmp (xstrndup (name,6), "vtype$") == 0))
+ p = name;
+
/* Skip symtree nodes not in an ONLY clause, unless there
is an existing symtree loaded from another USE statement. */
if (p == NULL)