Path: utzoo!attcan!uunet!wuarchive!zaphod.mps.ohio-state.edu!samsung!munnari.oz.au!metro!usage.csd.unsw.oz.au!decus!list
From: list@decus.com.au
Newsgroups: comp.unix.ultrix
Subject: FORTRAN and ar problem
Message-ID: <3938.26c89010@decus.com.au>
Date: 14 Aug 90 13:58:08 GMT
Organization: DECUS, South Pacific Chapter
Lines: 41

I seem to have a problem when archiving BLOCK DATA program units. Following is
a listing of a test.


	PROGRAM MAIN
	CHARACTER*1 CH1,CH2,CH3
	COMMON/CHARS/CH1,CH2,CH3
	CALL SEG
	END

	SUBROUTINE SEG
	CHARACTER*1 CH1,CH2,CH3,CH10,CH11,CH12
	COMMON/CHARS/CH1,CH2,CH3
	CH10 = CH1
	CH11 = CH2
	CH12 = CH3
	END

	BLOCK DATA LEO
	CHARACTER*1 CH1,CH2,CH3
	COMMON/CHARS/CH1,CH2,CH3
	DATA CH1/"A"
	DATA CH2/"B"
	DATA CH3/"C"
	END

When compiling the above code without archiving any of the routines the
program behaves as expected (eg. doing a dump in the debugger shows the
correct initial and final values).

When I archive the BLOCK DATA program unit and link, none of the variables
are initialised (eg. a dump shows null values). 

Has anybody else seen this, knows what's happening, has a work around (I'm
talking about 900 subroutines with 60 BLOCK DATA program units, so
specifying the BLOCK DATA units individually at link time is not going to
work.

Thanx in advance,
Leo List
SIR(Australasia)