From owner-sc22wg5+sc22wg5-dom8=www.open-std.org@open-std.org  Sat Dec 19 21:45:26 2015
Return-Path: <owner-sc22wg5+sc22wg5-dom8=www.open-std.org@open-std.org>
X-Original-To: sc22wg5-dom8
Delivered-To: sc22wg5-dom8@www.open-std.org
Received: by www.open-std.org (Postfix, from userid 521)
	id 0F4C13588C8; Sat, 19 Dec 2015 21:45:26 +0100 (CET)
Delivered-To: sc22wg5@open-std.org
Received: from mga11.intel.com (mga11.intel.com [192.55.52.93])
	by www.open-std.org (Postfix) with ESMTP id 4E8463568FB
	for <sc22wg5@open-std.org>; Sat, 19 Dec 2015 21:45:23 +0100 (CET)
Received: from orsmga002.jf.intel.com ([10.7.209.21])
  by fmsmga102.fm.intel.com with ESMTP; 19 Dec 2015 12:45:21 -0800
X-ExtLoop1: 1
X-IronPort-AV: E=Sophos;i="5.20,450,1444719600"; 
   d="scan'208";a="875116177"
Received: from orsmsx107.amr.corp.intel.com ([10.22.240.5])
  by orsmga002.jf.intel.com with ESMTP; 19 Dec 2015 12:45:21 -0800
Received: from orsmsx103.amr.corp.intel.com ([169.254.5.90]) by
 ORSMSX107.amr.corp.intel.com ([10.22.240.5]) with mapi id 14.03.0248.002;
 Sat, 19 Dec 2015 12:45:21 -0800
From: "Whitlock, Stan" <stan.whitlock@intel.com>
To: WG5 <sc22wg5@open-std.org>
Subject: RE: F08/0139??
Thread-Topic: F08/0139??
Thread-Index: AQHROpUfGwsUxFtu1UqUbK0lypd99Z7Sxqig
Date: Sat, 19 Dec 2015 20:45:21 +0000
Message-ID: <4AA982B1265F43408480F737BE12F4D36FBE408E@ORSMSX103.amr.corp.intel.com>
References: <023425B8-0E45-41A9-A0BE-95C9BEE041A1@cray.com>
In-Reply-To: <023425B8-0E45-41A9-A0BE-95C9BEE041A1@cray.com>
Accept-Language: en-US
Content-Language: en-US
X-MS-Has-Attach:
X-MS-TNEF-Correlator:
x-titus-metadata-40: eyJDYXRlZ29yeUxhYmVscyI6IiIsIk1ldGFkYXRhIjp7Im5zIjoiaHR0cDpcL1wvd3d3LnRpdHVzLmNvbVwvbnNcL0ludGVsMyIsImlkIjoiYWUyMDExZjUtMTdmZS00MDNhLWI5YjYtMTllZjUzY2E4ZTNmIiwicHJvcHMiOlt7Im4iOiJDVFBDbGFzc2lmaWNhdGlvbiIsInZhbHMiOlt7InZhbHVlIjoiQ1RQX0lDIn1dfV19LCJTdWJqZWN0TGFiZWxzIjpbXSwiVE1DVmVyc2lvbiI6IjE1LjQuMTAuMTkiLCJUcnVzdGVkTGFiZWxIYXNoIjoiV3JaZm1uRGpOV3dzQlFJTnV2NE1NM2VSaUNRaHRLdUFWemJmY3ROck9MOD0ifQ==
x-ctpclassification: CTP_IC
x-originating-ip: [10.22.254.139]
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
MIME-Version: 1.0
Sender: owner-sc22wg5@open-std.org
Precedence: bulk

Hi, Bill - I'm sure what you are seeing but interp F08/0139 in N2092 looks =
like this:

----------------------------------------------------------------------

NUMBER: F08/0139
TITLE: Is the name of an external procedure that has a binding label
       a local identifier?
KEYWORDS: TRANSFER, zero-sized scalar
DEFECT TYPE: Erratum
STATUS: Passed by J3 meeting

QUESTION:

Consider the program fragment:

  Subroutine s() Bind(C,Name=3D'Hello')
      Print *,'Hello'
  End Subroutine
  Subroutine s() Bind(C,Name=3D'World')
    Print *,'World'
  End Subroutine

This does not conform to Fortran 2003, and is not listed as an
extension in the Introduction to Fortran 2008, but the rules for
global names seem to indicate that this is now conforming.

Is this extension deliberate?

ANSWER:

Yes, this was a deliberate change to the Fortran standard.
An edit is provided to mention this in the Introduction.

EDITS:

[xvi] Introduction, paragraph 2, bullet "Programs and procedures",
      append to paragraph
        "The name of an external procedure that has a binding label
         is a local identifier and not a global identifier.".

SUBMITTED BY: Malcolm Cohen

HISTORY: 15-177    m207  F08/0139 submitted - passed by J3 meeting

----------------------------------------------------------------------

What are you seeing?

Thanks				/Stan

-----Original Message-----
From: j3-bounces@mailman.j3-fortran.org [mailto:j3-bounces@mailman.j3-fortr=
an.org] On Behalf Of Bill Long
Sent: Saturday, December 19, 2015 2:41 PM
To: fortran standards email list for J3
Subject: (j3.2006) F08/0139??

Interp F08/0139 (now out for ballot) starts with


--

QUESTION:


Consider the program fragment:

  Subroutine s() Bind(C,Name=3D'Hello')
      Print *,'Hello'
  End Subroutine
  Subroutine s() Bind(C,Name=3D'World')
    Print *,'World'
  End Subroutine

--

without any further context.  So, this could be part of the following progr=
am:

program ambiguous

  call s

contains

  Subroutine s() Bind(C,Name=3D'Hello')
      Print *,'Hello'
  End Subroutine
  Subroutine s() Bind(C,Name=3D'World')
    Print *,'World'
  End Subroutine

end program ambiguous

We didn't really intend for this to be conforming, did we?  I think this in=
terp needs a clearer example/question.

Cheers,
Bill

Bill Long                                                                  =
     longb@cray.com
Fortran Technical Support  &                                  voice:  651-6=
05-9024
Bioinformatics Software Development                     fax:  651-605-9142
Cray Inc./ Cray Plaza, Suite 210/ 380 Jackson St./ St. Paul, MN 55101


_______________________________________________
J3 mailing list
J3@mailman.j3-fortran.org
http://mailman.j3-fortran.org/mailman/listinfo/j3
