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:subject:to:references:from:message-id:date
	:mime-version:in-reply-to:content-type; q=dns; s=default; b=BpGr
	GAGhl0RDisSu0qgwJlXULtxAL5KxOYa88Bg5iHdWXFcQugg2DPa3uWChNr/05qvr
	C7KhoZbr1WRH1SdNzLTT8md+uRCh/VYWIMUUO+jbUbTIvb5HY2dOGdID8ascjRqI
	bSe2I/a0cNBEdFbUfaTHbgk1R0MbqjEjKgpqShI=
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:subject:to:references:from:message-id:date
	:mime-version:in-reply-to:content-type; s=default; bh=yoNzYUSdPT
	ZuvYw1rFk2576ZLbM=; b=mG/1GF/iK8sMtoDAbpprw0u42bvNSgqJoycUmi3+i6
	tfmZSjYrSvFjh5pFosWLYIGpImsrK1XhbFMkfezMVg1iqj11tiUosqzfaaJNimyE
	PkEM7etH2moTuF/S1dZNzijNokNQ7QjFn9dtlkVJOet/bAaYkjbFQt/l6mbjtEN8
	E=
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=-5.2 required=5.0 tests=AWL,BAYES_00,FREEMAIL_FROM,GIT_PATCH_2,KAM_ASCII_DIVIDERS,RCVD_IN_DNSWL_NONE,RCVD_IN_SORBS_SPAM,SPF_PASS autolearn=ham version=3.3.2 spammy=marco, BAD, *a, Marco
X-HELO:	mail-wr0-f171.google.com
X-Google-DKIM-Signature:	v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:subject:to:references:from:message-id:date :user-agent:mime-version:in-reply-to; bh=K8Wn5PFzc6Qg65fGIjL312fZbkCAGZ+lKPA2+y1FBCs=; b=IuOaqCsb58H7E+7ZQU5YX1FZq9ESXVXPVVEqUzn7HWTxa5puengFdAVGRqLZSTDnH+ Vz7xBH8BQc5xiWuQfCASJF2qyCPIyZYAVz6JltwcmlgzBKsw5qC4Q2ZXVXRWKcagd4eF TjtSE3NGYt629NxIFy60DccKBPstlbX4DxV5HdBSilo3li9NEpCzH6L8AN09+nqlDvJm FPlz1SSlwhyhDYqUB7zZJbnWUgaK61gi8L0oRMOm7XmYG2EuBc0DgXJO5mEhc0tTQ+Bp VNeHEjKQk/tXK7d3nIN3w9NfGq8N2nF5/+9FDvMyA129e+Pb/7I/NYeUeVS0yqYH7wdX /Dng==
X-Gm-Message-State:	AMke39k7gw06mwPXp74zt76q6MysU0KGjRS2QFgAVDUSceV7npyE/bDZhyV8OLy0hKsocw==
X-Received:	by 10.223.160.101 with SMTP id l34mr1680235wrl.73.1488394189127; Wed, 01 Mar 2017 10:49:49 -0800 (PST)
Subject:	Re: problem with fortran common block in shared library
To:	cygwin AT cygwin DOT com
References:	<CABUrC_bqYz6UqyMPJ5DPQe992H8X7WrX9hidYNK-PE40wWhzjA AT mail DOT gmail DOT com> <CAMCbSMrgC5Ggiz9dGu3ux+McXyDFjGrZ6fbv3cd6G2c7UUWoqA AT mail DOT gmail DOT com> <CABUrC_YEVCefiPjNzivja_LhrvfaU3ZXrvtPmvbxhtXM6_baCQ AT mail DOT gmail DOT com>
From:	Marco Atzeri <marco DOT atzeri AT gmail DOT com>
Message-ID:	<f5b74117-1989-1b4a-114b-06aa27f982fb@gmail.com>
Date:	Wed, 1 Mar 2017 19:49:46 +0100
User-Agent:	Mozilla/5.0 (Windows NT 6.1; WOW64; rv:45.0) Gecko/20100101 Thunderbird/45.7.1
MIME-Version:	1.0
In-Reply-To:	<CABUrC_YEVCefiPjNzivja_LhrvfaU3ZXrvtPmvbxhtXM6_baCQ@mail.gmail.com>
X-IsSubscribed:	yes

--------------A4D8B870E7353E677ECEE887
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit

On 06/01/2017 16:52, Bill Greene wrote:
> This problem is not a generic gcc/gfortran one.
> If you build the test code on Linux, it works correctly.
>
> Bill
>

the problem is gfortran one on Windows platform

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=47030
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68040

If you create a directive like

--------------------------------------
!GCC$ ATTRIBUTES DLLEXPORT :: /cb1/
       integer cvar
       common /cb1/ cvar
--------------------------------------

It produces and error like
--------------------------------------
  !GCC$ ATTRIBUTES DLLEXPORT :: /cb1/
                                1
Error: Invalid character in name at (1)
--------------------------------------

so the DLLEXPORT directive is not correctly
managing "common" as "/cb1/"

I also noted that the "!GCC$" must be at the beginning of the line
otherwise is totally ignored, that is also very hard to note.

Regards
Marco








--------------A4D8B870E7353E677ECEE887
Content-Type: text/plain; charset=UTF-8;
 name="cb_test-3.sh"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
 filename="cb_test-3.sh"

IyEvYmluL3NoIC14CmNhdCA+Y2JfbWFpbi5mIDw8XEVPRgogICAgICBwcm9n
cmFtIGNiX21haW4KICAgICAgIUdDQyQgQVRUUklCVVRFUyBETExFWFBPUlQg
OjogL2NiMS8KICAgICAgaW50ZWdlciBjdmFyCiAgICAgIGNvbW1vbiAvY2Ix
LyBjdmFyCiAgICAgIGN2YXIgPSAwCiAgICAgIGNhbGwgY2JfZnVuYygpCiAg
ICAgIGlmKGN2YXIuZXEuMikgdGhlbgogICAgICAgICAgd3JpdGUoKiwqKSdH
T09EIENPTU1PTiBCTE9DSycKICAgICAgZWxzZQogICAgICAgICAgd3JpdGUo
KiwqKSdCQUQgQ09NTU9OIEJMT0NLJwogICAgICBlbmRpZgogICAgICBlbmQK
RU9GCmNhdCA+Y2JfZnVuYy5mIDw8XEVPRgogICAgICBzdWJyb3V0aW5lIGNi
X2Z1bmMoKQogICAgICAhR0NDJCBBVFRSSUJVVEVTIERMTElNUE9SVCA6OiAv
Y2IxLwogICAgICBpbnRlZ2VyIGN2YXIKICAgICAgY29tbW9uIC9jYjEvIGN2
YXIKICAgICAgY3ZhciA9IDIKICAgICAgY3ZhcjIgPSAyCiAgICAgIGVuZApF
T0YKIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMKcm0gLWYg
Ki5vICouZGxsICouYSAqLmV4ZQpnZm9ydHJhbiAtYyBjYl9mdW5jLmYgCmdm
b3J0cmFuIC1jIGNiX21haW4uZiAKIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMKYXIgY3IgbGliY2Jfc3RhdGljLmEgY2JfZnVuYy5vCmdm
b3J0cmFuIGNiX21haW4ubyAtTC4gLWxjYl9zdGF0aWMgLW8gY2JfbWFpbl9z
dGF0aWMKIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMKZ2Zv
cnRyYW4gLXNoYXJlZCAtbyBsaWJjYl9keW5hbWljLmRsbCBjYl9mdW5jLm8g
Cmdmb3J0cmFuIGNiX21haW4ubyAtTC4gLWxjYl9keW5hbWljIC1vIGNiX21h
aW5fZHluYW1pYyAKIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMKLi9jYl9tYWluX3N0YXRpYwouL2NiX21haW5fZHluYW1pYwojIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIwo=

--------------A4D8B870E7353E677ECEE887
Content-Type: text/plain; charset=UTF-8;
 name="cb_test-2.sh"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
 filename="cb_test-2.sh"

IyEvYmluL3NoIC14CmNhdCA+Y2JfbWFpbi5mIDw8XEVPRgogICAgICBwcm9n
cmFtIGNiX21haW4KIUdDQyQgQVRUUklCVVRFUyBETExFWFBPUlQgOjogL2Ni
MS8KICAgICAgaW50ZWdlciBjdmFyCiAgICAgIGNvbW1vbiAvY2IxLyBjdmFy
CiAgICAgIGN2YXIgPSAwCiAgICAgIGNhbGwgY2JfZnVuYygpCiAgICAgIGlm
KGN2YXIuZXEuMikgdGhlbgogICAgICAgICAgd3JpdGUoKiwqKSdHT09EIENP
TU1PTiBCTE9DSycKICAgICAgZWxzZQogICAgICAgICAgd3JpdGUoKiwqKSdC
QUQgQ09NTU9OIEJMT0NLJwogICAgICBlbmRpZgogICAgICBlbmQKRU9GCmNh
dCA+Y2JfZnVuYy5mIDw8XEVPRgogICAgICBzdWJyb3V0aW5lIGNiX2Z1bmMo
KQohR0NDJCBBVFRSSUJVVEVTIERMTElNUE9SVCA6OiAvY2IxLwogICAgICBp
bnRlZ2VyIGN2YXIKICAgICAgY29tbW9uIC9jYjEvIGN2YXIKICAgICAgY3Zh
ciA9IDIKICAgICAgY3ZhcjIgPSAyCiAgICAgIGVuZApFT0YKIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMKcm0gLWYgKi5vICouZGxsICou
YSAqLmV4ZQpnZm9ydHJhbiAtYyBjYl9mdW5jLmYgCmdmb3J0cmFuIC1jIGNi
X21haW4uZiAKIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMK
YXIgY3IgbGliY2Jfc3RhdGljLmEgY2JfZnVuYy5vCmdmb3J0cmFuIGNiX21h
aW4ubyAtTC4gLWxjYl9zdGF0aWMgLW8gY2JfbWFpbl9zdGF0aWMKIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMKZ2ZvcnRyYW4gLXNoYXJl
ZCAtbyBsaWJjYl9keW5hbWljLmRsbCBjYl9mdW5jLm8gCmdmb3J0cmFuIGNi
X21haW4ubyAtTC4gLWxjYl9keW5hbWljIC1vIGNiX21haW5fZHluYW1pYyAK
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMKLi9jYl9tYWlu
X3N0YXRpYwouL2NiX21haW5fZHluYW1pYwojIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMj
IyMjIyMjIyMjIyMjIyMjIwo=


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

- Raw text -