From: H.J. Lu <hongjiu.lu@intel.com>
Date: Thu, 3 Jun 2010 14:53:06 +0000 (+0000)
Subject: Add a testcasef for PR tree-optimization/43688.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0c1b8fe999305de74747ce3e3780451a0a9c1c7f;p=gcc.git

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 f4e8c758d2b..048c51390b3 100644
--- 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
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