mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-10 05:50:28 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/43199 ([OOP] ICE when reading module file: find_array_spec(): Component not found)

Browse Source 
2010-03-01  Tobias Burnus  <burnus@net-b.de>

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

2010-03-01  Tobias Burnus  <burnus@net-b.de>

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

From-SVN: r157133
This commit is contained in:
Tobias Burnus 2010-03-01 10:23:35 +01:00 committed by Tobias Burnus
parent 6c6366f651
commit fef06326e1
4 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2010-03-01 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/43205

3
gcc/fortran/resolve.c
View File

@ -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)

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2010-03-01 Tobias Burnus <burnus@net-b.de>
PR fortran/43199
* gfortran.dg/module_read_2.f90: New test.
2010-02-27 Mark Mitchell <mark@codesourcery.com>
PR c++/42748

30
gcc/testsuite/gfortran.dg/module_read_2.f90 Normal file
View File

@ -0,0 +1,30 @@
! { dg-do run }
!
! 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" } }