gcc/fortran/

2009-12-11 Janus Weil  <janus@gcc.gnu.org>

	PR fortran/42257
	* module.c (write_dt_extensions): Check for accessibility.

gcc/testsuite/
2009-12-11  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/42257
	* gfortran.dg/extends_9.f03: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@155183 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 21c6154..4fd3ff0 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2009-12-11 Janus Weil  <janus@gcc.gnu.org>
+
+       PR fortran/42257
+       * module.c (write_dt_extensions): Check for accessibility.
+
 2009-12-11  Daniel Franke  <franke.daniel@gmail.com>
 
         PR fortran/40290

diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index d732b66..81a2613 100644 (file)
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -4670,6 +4670,10 @@ write_equiv (void)
 static void
 write_dt_extensions (gfc_symtree *st)
 {
+  if (!gfc_check_access (st->n.sym->attr.access,
+                        st->n.sym->ns->default_access))
+    return;
+
   mio_lparen ();
   mio_pool_string (&st->n.sym->name);
   if (st->n.sym->module != NULL)

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 92163b3..e2696ad 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2009-12-11  Janus Weil  <janus@gcc.gnu.org>
+
+       PR fortran/42257
+       * gfortran.dg/extends_9.f03: New test.
+
 2009-12-11  Jason Merrill  <jason@redhat.com>
 
        PR c++/42219

diff --git a/gcc/testsuite/gfortran.dg/extends_9.f03 b/gcc/testsuite/gfortran.dg/extends_9.f03
new file mode 100644 (file)
index 0000000..f59b973
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/extends_9.f03
@@ -0,0 +1,36 @@
+! { dg-do compile }
+!
+! PR42257: [OOP] Compiler segmentation fault due missing public statement
+!
+! Contributed by Oystein Olsen <oystein.olsen@astro.uio.no>
+
+MODULE run_example_fortran03
+  IMPLICIT NONE
+  PRIVATE
+  PUBLIC :: epoch
+
+  INTEGER, PARAMETER :: I4B = SELECTED_INT_KIND(9)
+  INTEGER, PARAMETER :: DP = SELECTED_REAL_KIND(15,307)
+
+  TYPE epoch
+     INTEGER(I4B) :: i = 2451545
+     REAL(DP)     :: f = 0.5_DP
+  END TYPE
+
+  TYPE, EXTENDS(epoch) :: time
+     REAL(DP) :: t = 0.0_DP   
+  END TYPE
+END MODULE
+
+
+  USE  run_example_fortran03
+  IMPLICIT NONE
+
+  CLASS(epoch), ALLOCATABLE :: e4
+
+  ALLOCATE(epoch::e4)
+  WRITE(*,*) e4%i, e4%f
+
+END
+ 
+! { dg-final { cleanup-modules "run_example_fortran03" } }