diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2018-08-12 17:19:09 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2018-08-12 17:19:09 +0000 |
| commit | 9a8013d11244cb26747d939c69589eba392ad7e2 (patch) | |
| tree | 4247e547f1412895bb682e501c5d1daa41903f61 /gcc/testsuite | |
| parent | 5b774d92b054cce62313be4278932fadf7dd6454 (diff) | |
| download | gcc-9a8013d11244cb26747d939c69589eba392ad7e2.zip gcc-9a8013d11244cb26747d939c69589eba392ad7e2.tar.gz gcc-9a8013d11244cb26747d939c69589eba392ad7e2.tar.bz2 | |
re PR fortran/66679 ([OOP] ICE with class(*) and transfer)
2018-08-12 Paul Thomas <pault@gcc.gnu.org>
PR fortran/66679
* trans-intrinsic.c (gfc_conv_intrinsic_transfer): Class array
elements are returned as references to the data element. Get
the class expression by stripping back the references. Use this
for the element size.
2018-08-12 Paul Thomas <pault@gcc.gnu.org>
PR fortran/66679
* gfortran.dg/transfer_class_3.f90: New test.
From-SVN: r263499
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/transfer_class_3.f90 | 18 |
2 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index bced6d3..95d558f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2018-08-12 Paul Thomas <pault@gcc.gnu.org> + PR fortran/66679 + * gfortran.dg/transfer_class_3.f90: New test. + +2018-08-12 Paul Thomas <pault@gcc.gnu.org> + PR fortran/86906 * gfortran.dg/use_rename_9.f90: New test. diff --git a/gcc/testsuite/gfortran.dg/transfer_class_3.f90 b/gcc/testsuite/gfortran.dg/transfer_class_3.f90 new file mode 100644 index 0000000..90082d7 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/transfer_class_3.f90 @@ -0,0 +1,18 @@ +! { dg-do run } +! +! Test the fix for PR66679. +! +! Contributed by Miha Polajnar <polajnar.miha@gmail.com> +! +program main + implicit none + class(*), allocatable :: vec(:) + integer :: var, ans(2) + allocate(vec(2),source=[1_4, 2_4]) + +! This worked correctly. + if (any (transfer(vec,[var],2) .ne. [1_4, 2_4])) stop 1 + +! This caused an ICE. + if (any ([transfer(vec(1),[var]), transfer(vec(2),[var])] .ne. [1_4, 2_4])) stop 2 +end program main |