From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Wed, 28 Nov 2007 01:09:35 +0000 (+0000)
Subject: re PR fortran/34227 (initialized symbol in COMMON: Missing checks)
X-Git-Tag: releases/gcc-4.3.0~1293
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=a27369a518553dbc2d041fb84d7d8bc2aaead1e2;p=thirdparty%2Fgcc.git

re PR fortran/34227 (initialized symbol in COMMON: Missing checks)

2007-11-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/34227
	* gfortran.dg/blockdata_5.f90: New test.
	* gfortran.dg/blockdata_6.f90: New test.

From-SVN: r130486
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index aa16aa8fba0e..aaf029aa8237 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2007-11-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/34227
+	* gfortran.dg/blockdata_5.f90: New test.
+	* gfortran.dg/blockdata_6.f90: New test.
+
 2007-11-27  Jakub Jelinek  <jakub@redhat.com>
 
 	PR tree-optimization/34016
diff --git a/gcc/testsuite/gfortran.dg/blockdata_5.f90 b/gcc/testsuite/gfortran.dg/blockdata_5.f90
new file mode 100644
index 000000000000..03e667ce9d7f
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/blockdata_5.f90
@@ -0,0 +1,10 @@
+! { dg-do compile }
+! { dg-options "-std=f95" }
+! PR34227 Initialized symbol in COMMON: Missing checks
+program main
+ implicit none
+ integer, parameter:: nmin = 2
+ character(len=3) :: emname(nmin)=(/'bar','baz'/)
+ common/nmstr/emname ! { dg-error "can only be COMMON in BLOCK DATA" } 
+end program main
+
diff --git a/gcc/testsuite/gfortran.dg/blockdata_6.f90 b/gcc/testsuite/gfortran.dg/blockdata_6.f90
new file mode 100644
index 000000000000..19bb6181cbce
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/blockdata_6.f90
@@ -0,0 +1,10 @@
+! { dg-do compile }
+! { dg-options "-std=f95" }
+! PR34227 Initialized symbol in COMMON: Missing checks
+program main
+ implicit none
+ integer, parameter:: nmin = 2
+ character(len=3) :: emname(nmin)
+ data emname/'bar','baz'/
+ common/dd/emname ! { dg-error "can only be COMMON in BLOCK DATA" }
+end program main