DomainKey-Signature: a=rsa-sha1; c=nofws; d=sourceware.org; h=list-id
	:list-unsubscribe:list-subscribe:list-archive:list-post
	:list-help:sender:mime-version:in-reply-to:references:date
	:message-id:subject:from:to:content-type; q=dns; s=default; b=fV
	YB8hfYfmu6SQW/Tm+jBdcGvyMNJNeHcIZ2HiVp55GG+0iTq1W4FzI4gn5v2u+DjS
	B0QFscm7O2Si0kKZHsDRK47w9f6lptBwN6mhUq1vc7fuNRS+6za04iXCqSHJkGvv
	RXHukGHJSGozb9MmekAjLDydthADqJYs0q+aBx6GY=
Mailing-List: contact cygwin-help@cygwin.com; run by ezmlm
Sender: cygwin-owner@cygwin.com
Mail-Followup-To: cygwin@cygwin.com
MIME-Version: 1.0
In-Reply-To: <alpine.LFD.2.11.1506232245380.28689@asterix>
References: <alpine.LFD.2.11.1506232245380.28689@asterix>
Date: Wed, 24 Jun 2015 10:24:17 +0200
Message-ID: <CAMCbSMo0xK3eDD0MHoxSqXW+Uw=Ko7VNk6gFoC4b6qGQin5SSA@mail.gmail.com>
Subject: Re: using fortran common block from dll created by gfortran
From: Arjen Markus <arjen.markus895@gmail.com>
To: Andrey Repin <cygwin@cygwin.com>
Content-Type: text/plain; charset=UTF-8

Hi,

while this is not directly related to gfortran on Cygwin, this article
might help you appreciate the issues involved:
https://software.intel.com/en-us/node/535307

Are you bound to common blocks? If not, you may get better results
when you put the data in a module.

Regards,

Arjen

2015-06-24 6:30 GMT+02:00 Satish Balay <balay@fastmail.fm>:
> 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@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@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@ps4 ~/junk
> $ gfortran --version
> GNU Fortran (GCC) 4.9.2
> --
> 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

--
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