[gcc] GCC 4.5.0=>4.5.1

gcc/gcc/testsuite/gfortran.dg/proc_ptr_8.f90

Index: gcc/gcc/testsuite/gfortran.dg/proc_ptr_8.f90
diff --git a/gcc/gcc/testsuite/gfortran.dg/proc_ptr_8.f90 b/gcc/gcc/testsuite/gfortran.dg/proc_ptr_8.f90
index 80d26619bc01acaa88ad7dbba70cd66d3f46d708..f45d114f833698aa63a50fe2209e0577a043c753 100644
--- a/gcc/gcc/testsuite/gfortran.dg/proc_ptr_8.f90
+++ b/gcc/gcc/testsuite/gfortran.dg/proc_ptr_8.f90
@@ -23,12 +23,23 @@ MODULE X
 END MODULE X
 
 USE X
-PROCEDURE(mytype), POINTER :: ptype
+PROCEDURE(mytype), POINTER :: ptype,ptype2
 
 CALL init()
 CALL C_F_PROCPOINTER(funpointer,ptype)
 if (ptype(3) /= 9) call abort()
 
+! the stuff below was added with PR 42072
+call setpointer(ptype2)
+if (ptype2(4) /= 12) call abort()
+
+contains
+
+  subroutine setpointer (p)
+    PROCEDURE(mytype), POINTER :: p
+    CALL C_F_PROCPOINTER(funpointer,p)
+  end subroutine
+
 END
 
 ! { dg-final { cleanup-modules "X" } }