This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Patch, Fortran] PR 43199 - Handle class%component references when reading .mod files


Hello,

this patch prevents an ICE when handling class%component in
find_array_spec. The problem is that with CLASS(type) one has
effectively another layer around type, i.e. kind of

TYPE class.type
   type(type) :: data

and one needs to accommodate for this extra layer. I think the attached
patch correctly handles this.

Build on x86-64-linux and currently regtesting. OK for the trunk?

Tobias

PS: I marked the test as "dg-do compile" but one can also use "run";
what do you prefer?
2010-02-28  Tobias Burnus  <burnus@net-b.de>

	PR fortran/43199
	* resolve.c (find_array_spec): Handle REF_COMPONENT with
	CLASS components.

2010-02-28  Tobias Burnus  <burnus@net-b.de>

	PR fortran/43199
	* gfortran.dg/module_read_2.f90: New test.

Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c	(Revision 157123)
+++ gcc/fortran/resolve.c	(Arbeitskopie)
@@ -4007,6 +4007,9 @@ find_array_spec (gfc_expr *e)
 	if (derived == NULL)
 	  derived = e->symtree->n.sym->ts.u.derived;
 
+	if (derived->attr.is_class)
+	  derived = derived->components->ts.u.derived;
+
 	c = derived->components;
 
 	for (; c; c = c->next)
Index: gcc/testsuite/gfortran.dg/module_read_2.f90
===================================================================
--- gcc/testsuite/gfortran.dg/module_read_2.f90	(Revision 0)
+++ gcc/testsuite/gfortran.dg/module_read_2.f90	(Revision 0)
@@ -0,0 +1,30 @@
+! { dg-do compile }
+!
+! PR fortran/43199
+!
+! This program gave an ICE due to reading the REF_COMPONENT with CLASS.
+!
+module m_string
+  type t_string
+      character, dimension(:), allocatable :: string
+  end type t_string
+contains
+pure function string_to_char ( s ) result(res)
+  class(t_string), intent(in) :: s
+  character(len=size(s%string)) :: res
+  integer :: i
+  do i = 1,len(res)
+    res(i:i) = s%string(i)
+  end do
+end function string_to_char
+end module m_string
+
+use m_string
+type(t_string) :: str
+allocate(str%string(5))
+str%string = ['H','e','l','l','o']
+if (len (string_to_char (str)) /= 5) call abort ()
+if (string_to_char (str) /= "Hello") call abort ()
+end
+
+! { dg-final { cleanup-modules "m_string" } }

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]