diff options
author | Paul Thomas <pault@gcc.gnu.org> | 2016-01-01 17:02:51 +0000 |
---|---|---|
committer | Paul Thomas <pault@gcc.gnu.org> | 2016-01-01 17:02:51 +0000 |
commit | 591bb5e4bf6b9a75175b162bcf9d22bcae2b5abf (patch) | |
tree | d9ec0725f3a82d26c2a6aae4255fe82f7aa87938 /gcc/testsuite | |
parent | 942a13194f3efa752dbb1d9b8fbe6ceb9d104e13 (diff) | |
download | gcc-591bb5e4bf6b9a75175b162bcf9d22bcae2b5abf.zip gcc-591bb5e4bf6b9a75175b162bcf9d22bcae2b5abf.tar.gz gcc-591bb5e4bf6b9a75175b162bcf9d22bcae2b5abf.tar.bz2 |
re PR fortran/68864 (ICE: in gfc_get_descriptor_dimension, at fortran/trans-array.c:268)
2016-01-01 Paul Thomas <pault@gcc.gnu.org>
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 <pault@gcc.gnu.org>
PR fortran/68864
* gfortran.dg/pr68864.f90: New test.
From-SVN: r232026
Diffstat (limited to 'gcc/testsuite')
-rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/pr68864.f90 | 43 |
2 files changed, 49 insertions, 1 deletions
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 <pault@gcc.gnu.org> + + PR fortran/68864 + * gfortran.dg/pr68864.f90: New test. + 2016-01-01 Jakub Jelinek <jakub@redhat.com> 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 <talebi.hossein@gmail.com> +! +! +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 |