From 591bb5e4bf6b9a75175b162bcf9d22bcae2b5abf Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Fri, 1 Jan 2016 17:02:51 +0000 Subject: re PR fortran/68864 (ICE: in gfc_get_descriptor_dimension, at fortran/trans-array.c:268) 2016-01-01 Paul Thomas PR fortran/68864 * trans-array.c (evaluate_bound): If deferred, test that 'desc' is an array descriptor before using gfc_conv_descriptor_xxx. 2016-01-01 Paul Thomas PR fortran/68864 * gfortran.dg/pr68864.f90: New test. From-SVN: r232026 --- gcc/testsuite/ChangeLog | 7 +++++- gcc/testsuite/gfortran.dg/pr68864.f90 | 43 +++++++++++++++++++++++++++++++++++ 2 files changed, 49 insertions(+), 1 deletion(-) create mode 100644 gcc/testsuite/gfortran.dg/pr68864.f90 (limited to 'gcc/testsuite') diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e189d4b..a514461 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2016-01-01 Paul Thomas + + PR fortran/68864 + * gfortran.dg/pr68864.f90: New test. + 2016-01-01 Jakub Jelinek PR tree-optimization/69070 @@ -8,7 +13,7 @@ PR target/69015 * gcc.dg/pr69015.c: New test. - + Copyright (C) 2016 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, diff --git a/gcc/testsuite/gfortran.dg/pr68864.f90 b/gcc/testsuite/gfortran.dg/pr68864.f90 new file mode 100644 index 0000000..151dfb2 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr68864.f90 @@ -0,0 +1,43 @@ +! { dg-do compile } +! +! Contributed by Hossein Talebi +! +! +Module part_base2_class + + implicit none + + type :: ty_moc1 + integer l + end type ty_moc1 + integer,parameter :: MAX_NUM_ELEMENT_TYPE=32 + + type :: ty_element_index2 + + class(ty_moc1),allocatable :: element + class(ty_moc1),allocatable :: element_th(:) + + endtype ty_element_index2 + + type :: ty_part_base2 + type(ty_element_index2)::element_index(MAX_NUM_ELEMENT_TYPE) + end type ty_part_base2 + + class(ty_part_base2),allocatable :: part_tmp_obj + +End Module part_base2_class + + use part_base2_class + allocate (part_tmp_obj) + allocate (part_tmp_obj%element_index(1)%element, source = ty_moc1(1)) + allocate (part_tmp_obj%element_index(1)%element_th(1), source = ty_moc1(99)) + allocate (part_tmp_obj%element_index(32)%element_th(1), source = ty_moc1(999)) + + do i = 1, MAX_NUM_ELEMENT_TYPE + if (allocated (part_tmp_obj%element_index(i)%element_th)) then + print *, i, part_tmp_obj%element_index(i)%element_th(1)%l + end if + end do + deallocate (part_tmp_obj) + +end -- cgit v1.1