From 0c1b8fe999305de74747ce3e3780451a0a9c1c7f Mon Sep 17 00:00:00 2001 From: "H.J. Lu" Date: Thu, 3 Jun 2010 14:53:06 +0000 Subject: [PATCH] Add a testcasef for PR tree-optimization/43688. 2010-06-03 H.J. Lu PR tree-optimization/43688 * gfortran.dg/pr43688.f90: New. From-SVN: r160224 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/pr43688.f90 | 11 +++++++++++ 2 files changed, 16 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/pr43688.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f4e8c758d2b..048c51390b3 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-06-03 H.J. Lu + + PR tree-optimization/43688 + * gfortran.dg/pr43688.f90: New. + 2010-06-03 Richard Guenther PR lto/41584 diff --git a/gcc/testsuite/gfortran.dg/pr43688.f90 b/gcc/testsuite/gfortran.dg/pr43688.f90 new file mode 100644 index 00000000000..face02212b8 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr43688.f90 @@ -0,0 +1,11 @@ +! { dg-do compile } +! { dg-options "-O0 -fipa-reference" } + + subroutine sub + type :: a + integer :: i = 42 + end type a + type(a), target :: dt(2) + integer, pointer :: ip(:) + ip => dt%i + end subroutine -- 2.30.2