This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
BLOCK DATA ?
- From: Salvatore Filippone <sfilippone at uniroma2 dot it>
- To: fortran at gcc dot gnu dot org
- Date: Mon, 30 Aug 2004 13:21:02 +0200
- Subject: BLOCK DATA ?
Hi there,
The attached snippet of code produces the following:
$ /usr/local/gfortran/bin/gfortran tst.f -o tst
/tmp/ccjM1xsk.s: Assembler messages:
/tmp/ccjM1xsk.s:14: Error: symbol `_BLOCK_DATA____' is already defined
Apparently the name in the block data statement is ignored when
generating the external symbol name...
AFAIK this is supposed to work..
Regards
block data bd1
implicit double precision(a-h,o-z)
common /c1/ qa(6)
data (qa(ire),ire=1,6) /0.794709,0.431310,-0.980875,0.990207,
& 0.652939,2.464764262/
end
block data bd2
implicit double precision(a-h,o-z)
common /c2/ qb(6)
data (qb(ire),ire=1,6) /-113.2080,-59.6554,-68.4453,-51.7916,
& 9.8232,-57.20081888/
end
program try_bd
implicit double precision(a-h,o-z)
common /c1/ qa(6)
common /c2/ qb(6)
print*, 'Test for BLOCK_DATA: ',qa(1),qb(1)
stop
end
--
Salvatore Filippone <sfilippone@uniroma2.it>