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

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/pr43688.f90

+! { 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