Add a testcasef for PR tree-optimization/43688.

2010-06-03  H.J. Lu  <hongjiu.lu@intel.com>

	PR tree-optimization/43688
	* gfortran.dg/pr43688.f90: New.

From-SVN: r160224

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f4e8c758d2bed7797b1a92b862fc8dfec00997ce..048c51390b336be24e39be6c23cb3d67af2107d1 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-06-03  H.J. Lu  <hongjiu.lu@intel.com>
+
+       PR tree-optimization/43688
+       * gfortran.dg/pr43688.f90: New.
+
 2010-06-03  Richard Guenther  <rguenther@suse.de>
 
        PR lto/41584

diff --git a/gcc/testsuite/gfortran.dg/pr43688.f90 b/gcc/testsuite/gfortran.dg/pr43688.f90
new file mode 100644 (file)
index 0000000..face022
--- /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