summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>2007-06-21 02:25:58 +0000
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>2007-06-21 02:25:58 +0000
commit3b3bfa39b71a0d85bdc69efa44edae087ab02c84 (patch)
treede2917cacfc66a2c113da62c4106002159ea19b7
parent3f42b3aa46789abf12513a6a8b707f96ee7ea479 (diff)
downloadppe42-gcc-3b3bfa39b71a0d85bdc69efa44edae087ab02c84.tar.gz
ppe42-gcc-3b3bfa39b71a0d85bdc69efa44edae087ab02c84.zip
2007-06-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/32361 gfortran.dg/pointer_assign_2.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125909 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r--gcc/testsuite/ChangeLog5
-rw-r--r--gcc/testsuite/gfortran.dg/pointer_assign_2.f906
2 files changed, 11 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 70a3e9801b7..caf24ed56be 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,10 @@
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.
diff --git a/gcc/testsuite/gfortran.dg/pointer_assign_2.f90 b/gcc/testsuite/gfortran.dg/pointer_assign_2.f90
new file mode 100644
index 00000000000..5f13fb3b382
--- /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
OpenPOWER on IntegriCloud