X-Recipient:	archive-cygwin AT delorie DOT com
DomainKey-Signature:	a=rsa-sha1; c=nofws; d=sourceware.org; h=list-id
	:list-unsubscribe:list-subscribe:list-archive:list-post
	:list-help:sender:date:from:to:subject:message-id:mime-version
	:content-type; q=dns; s=default; b=T+rxirjBkF8j2Ifk7HmQbFueyUYUg
	OIJmz7tXNkuPcjF2jfNW8idnov28e7+Sq2XO7y2LRRz/E8cdBvzjGoPNxiDN/0o3
	HwLb8C/PHgjamycJGzLgB0pRKUkf1uDmp0o0UiqAmq429K0pFygxQCzqyDCWhLe4
	RaIFW3gklSuv8c=
DKIM-Signature:	v=1; a=rsa-sha1; c=relaxed; d=sourceware.org; h=list-id
	:list-unsubscribe:list-subscribe:list-archive:list-post
	:list-help:sender:date:from:to:subject:message-id:mime-version
	:content-type; s=default; bh=uLWG5dVgjyCIUhONhMVoZOyDfRk=; b=d2e
	BcJz828r3Pr7poDVfaXgkZRPotSgaqZQC253QOKBztAXqGUBAuEtGjyY0rdQ9Q/L
	JYoJaJO/FysV1dvjacNlvotB+vU7AzZV9uU0Hiw+eE0r4QXspAVXqE+XljQjfyav
	xxtU4bRFZlEsXCq1xmAhRWrlifLpvue6G9EK/zmo=
Mailing-List:	contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Id:	<cygwin.cygwin.com>
List-Subscribe:	<mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive:	<http://sourceware.org/ml/cygwin/>
List-Post:	<mailto:cygwin AT cygwin DOT com>
List-Help:	<mailto:cygwin-help AT cygwin DOT com>, <http://sourceware.org/ml/#faqs>
Sender:	cygwin-owner AT cygwin DOT com
Mail-Followup-To:	cygwin AT cygwin DOT com
Delivered-To:	mailing list cygwin AT cygwin DOT com
Authentication-Results:	sourceware.org; auth=none
X-Virus-Found:	No
X-Spam-SWARE-Status:	No, score=-2.3 required=5.0 tests=AWL,BAYES_00,FREEMAIL_FROM,RCVD_IN_DNSWL_LOW,SPF_PASS autolearn=ham version=3.3.2
X-HELO:	out5-smtp.messagingengine.com
Date:	Tue, 23 Jun 2015 23:30:11 -0500 (CDT)
From:	Satish Balay <balay AT fastmail DOT fm>
To:	cygwin AT cygwin DOT com
Subject:	using fortran common block from dll created by gfortran
Message-ID:	<alpine.LFD.2.11.1506232245380.28689@asterix>
User-Agent:	Alpine 2.11 (LFD 23 2013-08-11)
MIME-Version:	1.0

--8323328-1451561632-1435120211=:28689
Content-Type: TEXT/PLAIN; charset=US-ASCII

Hi Cygwin,

I'm debuging an issue with dlls with cygwin gnu compilers - and have
narrowed down the issue to the attached test case [script].

Could you guide me to correct usage of 'fortran common block' with dlls?

[In this example - using fortran 'common block' via static library
works. However the same code using a .dll fails]

Thanks,
Satish

---------

balay AT ps4 ~/junk
$ ./cb_test.sh 
+ cat
+ cat
+ rm -f '*.o' '*.dll' '*.a' '*.exe'
+ gfortran -c cb_func.f cb_main.f
+ ar cr libcb_static.a cb_func.o
+ gfortran cb_main.o -L. -lcb_static -o cb_main_static
+ gfortran -shared -o libcb_dynamic.dll cb_func.o
+ gfortran cb_main.o -L. -lcb_dynamic -o cb_main_dynamic
+ ./cb_main_static
 GOOD COMMON BLOCK
+ ./cb_main_dynamic
 BAD COMMON BLOCK


balay AT ps4 ~/junk
$ uname -a
CYGWIN_NT-6.1 ps4 2.0.4(0.287/5/3) 2015-06-09 12:22 x86_64 Cygwin

balay AT ps4 ~/junk
$ gfortran --version
GNU Fortran (GCC) 4.9.2
--8323328-1451561632-1435120211=:28689
Content-Type: APPLICATION/x-sh; name=cb_test.sh
Content-Transfer-Encoding: BASE64
Content-ID: <alpine DOT LFD DOT 2 DOT 11 DOT 1506232330110 DOT 28689 AT asterix>
Content-Description: 
Content-Disposition: attachment; filename=cb_test.sh

IyEvYmluL3NoIC14CmNhdCA+Y2JfbWFpbi5mIDw8XEVPRgogICAgICBwcm9n
cmFtIGNiX21haW4KICAgICAgaW50ZWdlciBjdmFyCiAgICAgIGNvbW1vbiAv
Y2IxLyBjdmFyCiAgICAgIGN2YXIgPSAwCiAgICAgIGNhbGwgY2JfZnVuYygp
CiAgICAgIGlmKGN2YXIuZXEuMikgdGhlbgogICAgICAgICAgd3JpdGUoKiwq
KSdHT09EIENPTU1PTiBCTE9DSycKICAgICAgZWxzZQogICAgICAgICAgd3Jp
dGUoKiwqKSdCQUQgQ09NTU9OIEJMT0NLJwogICAgICBlbmRpZgogICAgICBl
bmQKRU9GCmNhdCA+Y2JfZnVuYy5mIDw8XEVPRgogICAgICBzdWJyb3V0aW5l
IGNiX2Z1bmMoKQogICAgICBpbnRlZ2VyIGN2YXIKICAgICAgY29tbW9uIC9j
YjEvIGN2YXIKICAgICAgY3ZhciA9IDIKICAgICAgZW5kCkVPRgojIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIwpybSAtZiAqLm8gKi5kbGwg
Ki5hICouZXhlCmdmb3J0cmFuIC1jIGNiX2Z1bmMuZiBjYl9tYWluLmYKIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMKYXIgY3IgbGliY2Jf
c3RhdGljLmEgY2JfZnVuYy5vCmdmb3J0cmFuIGNiX21haW4ubyAtTC4gLWxj
Yl9zdGF0aWMgLW8gY2JfbWFpbl9zdGF0aWMKIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMKZ2ZvcnRyYW4gLXNoYXJlZCAtbyBsaWJjYl9k
eW5hbWljLmRsbCBjYl9mdW5jLm8KZ2ZvcnRyYW4gY2JfbWFpbi5vIC1MLiAt
bGNiX2R5bmFtaWMgLW8gY2JfbWFpbl9keW5hbWljCiMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjCi4vY2JfbWFpbl9zdGF0aWMKLi9jYl9t
YWluX2R5bmFtaWMKIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMK


--8323328-1451561632-1435120211=:28689
Content-Type: text/plain; charset=us-ascii

--
Problem reports:       http://cygwin.com/problems.html
FAQ:                   http://cygwin.com/faq/
Documentation:         http://cygwin.com/docs.html
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
--8323328-1451561632-1435120211=:28689--

- Raw text -