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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 70a3e9801b7609142a71ef5115f5a73bf51926c0..caf24ed56bea829fb58a79fe677e8408fec2466f 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/pointer_assign_2.f90 b/gcc/testsuite/gfortran.dg/pointer_assign_2.f90
new file mode 100644 (file)
index 0000000..5f13fb3
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pointer_assign_2.f90
@@ -0,0 +1,6 @@
+! { dg-do compile }
+! PR32361 Type declaration to initialize data in named common
+      BLOCK DATA
+       integer, pointer :: ptr1 => NULL()
+       common / T / ptr1
+      END