From 3e9bc1ea66959ff20289ad43095c634b9e8c2378 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 25 Nov 2007 22:14:57 +0000 Subject: [PATCH] re PR fortran/33152 (Initialization/declaration problems in block data) 2007-11-25 Jerry DeLisle PR fortran/33152 *gfortran.dg\blockdata_4.f90: New test. From-SVN: r130416 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/blockdata_4.f90 | 24 +++++++++++++++++++++++ 2 files changed, 29 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/blockdata_4.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index df55de85047..e5a81933ef2 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-11-25 Jerry DeLisle + + PR fortran/33152 + *gfortran.dg\blockdata_4.f90: New test. + 2007-11-25 Tobias Burnus PR fortran/34079 diff --git a/gcc/testsuite/gfortran.dg/blockdata_4.f90 b/gcc/testsuite/gfortran.dg/blockdata_4.f90 new file mode 100644 index 00000000000..18836bcacd0 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/blockdata_4.f90 @@ -0,0 +1,24 @@ +! { dg-do compile } +! PR33152 Initialization/declaration problems in block data +! Test case prepared by Jerry DeLisle +blockdata bab + character(len=3) :: myname(2)=(/'bar','baz'/) + common/nmstr/myname +end blockdata bab + +blockdata thdinit + implicit none + integer, parameter :: nmin=2 + common/onestr/emname + character(len=3) :: emname(nmin) = (/'bar','baz'/) +end blockdata thdinit + +blockdata fooinit + implicit none + integer, parameter :: nmin=2 + common/twostr/aname + data aname/'bar','baz'/ ! { dg-error "DATA array" } + character(len=3) :: aname(nmin) +end blockdata fooinit + +end