PR fortran/34227
* gfortran.dg/blockdata_5.f90: New test.
* gfortran.dg/blockdata_6.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130486
138bc75d-0d04-0410-961f-
82ee72b054a4
+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
--- /dev/null
+! { 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
+
--- /dev/null
+! { 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