From: hjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 3 Jun 2010 14:53:06 +0000 (+0000)
Subject: Add a testcasef for PR tree-optimization/43688.
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=030475578afaa10c638a64c2c2bc9ef83344e53d;p=thirdparty%2Fgcc.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.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160224 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f4e8c758d2be..048c51390b33 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 000000000000..face02212b8f
--- /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