re PR fortran/32361 (TYPE DECLARATION TO INITIALIZE DATA IN NAMED COMMON)

2007-06-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/32361
	gfortran.dg/pointer_assign_2.f90: New test.

From-SVN: r125909

gcc/testsuite/ChangeLog

 2007-06-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
+	PR fortran/32361
+	gfortran.dg/pointer_assign_2.f90: New test.
+
+2007-06-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
 	PR fortran/25061
 	gfortran.dg/invalid_procedure_name.f90: New test.
 

gcc/testsuite/gfortran.dg/pointer_assign_2.f90

+! { dg-do compile }
+! PR32361 Type declaration to initialize data in named common
+      BLOCK DATA
+       integer, pointer :: ptr1 => NULL()
+       common / T / ptr1
+      END