procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/33152 (Initialization/declaration problems in block data)

Browse source 
2007-11-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/33152
	*gfortran.dg\blockdata_4.f90: New test.

From-SVN: r130416
This commit is contained in:
Jerry DeLisle 2007-11-25 22:14:57 +00:00
parent f1607c0199
commit 3e9bc1ea66
2 changed files with 29 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2007-11-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/33152
*gfortran.dg\blockdata_4.f90: New test.
2007-11-25 Tobias Burnus <burnus@net-b.de>
PR fortran/34079

24
gcc/testsuite/gfortran.dg/blockdata_4.f90 Normal file
View file

@ -0,0 +1,24 @@
! { dg-do compile }
! PR33152 Initialization/declaration problems in block data
! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
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