From owner-sc22wg5+sc22wg5-dom8=www.open-std.org@open-std.org Sat Jun 7 22:18:16 2014 Return-Path: X-Original-To: sc22wg5-dom8 Delivered-To: sc22wg5-dom8@www.open-std.org Received: by www.open-std.org (Postfix, from userid 521) id D3111358530; Sat, 7 Jun 2014 22:18:16 +0200 (CEST) Delivered-To: sc22wg5@open-std.org X-Greylist: delayed 666 seconds by postgrey-1.34 at www5.open-std.org; Sat, 07 Jun 2014 22:18:15 CEST Received: from mga03.intel.com (mga03.intel.com [143.182.124.21]) by www.open-std.org (Postfix) with ESMTP id 40DE43566AA for ; Sat, 7 Jun 2014 22:18:13 +0200 (CEST) Received: from azsmga001.ch.intel.com ([10.2.17.19]) by azsmga101.ch.intel.com with ESMTP; 07 Jun 2014 13:07:01 -0700 X-ExtLoop1: 1 X-IronPort-AV: E=Sophos;i="4.98,995,1392192000"; d="txt'?scan'208,217";a="442576601" Received: from orsmsx110.amr.corp.intel.com ([10.22.240.8]) by azsmga001.ch.intel.com with ESMTP; 07 Jun 2014 13:07:00 -0700 Received: from orsmsx114.amr.corp.intel.com (10.22.240.10) by ORSMSX110.amr.corp.intel.com (10.22.240.8) with Microsoft SMTP Server (TLS) id 14.3.123.3; Sat, 7 Jun 2014 13:07:00 -0700 Received: from orsmsx103.amr.corp.intel.com ([169.254.2.248]) by ORSMSX114.amr.corp.intel.com ([169.254.8.147]) with mapi id 14.03.0123.003; Sat, 7 Jun 2014 13:06:59 -0700 From: "Whitlock, Stan" To: WG5 CC: "Whitlock, Stan" Subject: J3/14-168 for meeting #204: F2015: allow non-default kinds in arguments to intrinsics Thread-Topic: J3/14-168 for meeting #204: F2015: allow non-default kinds in arguments to intrinsics Thread-Index: Ac+Ci6KPR2VXYqQVTkO/2fkJcHhdtg== Date: Sat, 7 Jun 2014 20:06:59 +0000 Message-ID: <4AA982B1265F43408480F737BE12F4D35F8EEB4E@ORSMSX103.amr.corp.intel.com> Accept-Language: en-US Content-Language: en-US X-MS-Has-Attach: yes X-MS-TNEF-Correlator: x-originating-ip: [10.22.254.140] Content-Type: multipart/mixed; boundary="_004_4AA982B1265F43408480F737BE12F4D35F8EEB4EORSMSX103amrcor_" MIME-Version: 1.0 Sender: owner-sc22wg5@open-std.org Precedence: bulk --_004_4AA982B1265F43408480F737BE12F4D35F8EEB4EORSMSX103amrcor_ Content-Type: multipart/alternative; boundary="_000_4AA982B1265F43408480F737BE12F4D35F8EEB4EORSMSX103amrcor_" --_000_4AA982B1265F43408480F737BE12F4D35F8EEB4EORSMSX103amrcor_ Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: quoted-printable Hi, WG5 - I have put paper J3/14-168 on the J3 server for WG5 consideration= at joint meeting #204 in Las Vegas, 23-27-Jun-2014. It asks for an additi= on to the Fortran 2015 work plan. I would appreciate country and individua= l consideration of this item. Thanks /Stan ________________________________ J3/14-168 To: J3 Subject: F2015: allow non-default kinds in arguments to intrinsics From: Stan Whitlock Date: 2014 June 07 Ref: 14-007r1 1. Introduction =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D In Fortran 2008 we extended the allowed kinds for OPEN and INQUIRE specifiers from default kind to any kind. See 14-007r1 [209] OPEN (RECL=3D) or [237] INQUIRE (NEXTREC=3D). F2008 did not change default character usag= e in these specifiers. Several of the intrinsic procedures [chapter 13] and the IEEE intrinsic module procedures [chapter 14] require that their arguments be of default kind. This is unnecessary. The proposal is to extend these arguments to any kind. There is no change proposed for default character arguments or for default kinds for function results. 2. Proposal for 2015 work plan =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D Extend the kinds for arguments in certain intrinsic and intrinsic module procedures to allow any kinds, not just default kinds. The procedures and their arguments that are affected are: [342:17] 13.7.44 DATE_AND_TIME (, , , VALUES) [347:21] 13.7.57 EXECUTE_COMMAND_LINE ( , WAIT, EXITSTAT, CMDSTAT, ) [351:7 ] 13.7.65 GET_COMMAND ( , LENGTH, STATUS) [351:24] 13.7.66 GET_COMMAND_ARGUMENT (NUMBER , , LENGTH, STATUS) [352:27] 13.7.67 GET_ENVIRONMENT_VARIABLE ( , , LENGTH, STATUS, ) [381:30] 13.7.136 RANDOM_SEED (SIZE, PUT, GET) [395:1 ] 13.7.167 THIS_IMAGE ( , DIM) [414:1 ] 14.11.4 IEEE_GET_FLAG ( , FLAG_VALUE) [414:12] 14.11.5 IEEE_GET_HALTING MODE ( , HALTING) [415:19] 14.11.8 IEEE_GET_UNDERFLOW_MODE (GRADUAL) [419:19] 14.11.19 IEEE_SET_FLAG ( , FLAG_VALUE) [419:31] 14.11.20 IEEE_SET_HALTING_MODE ( , HALTING) [421:1 ] 14.11.23 IEEE_SET_UNDERFLOW_MODE (GRADUAL) 3. Draft Edits to 14-007r1 =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D In 13.7.44 DATE_AND_TIME: argument VALUES: [342:33] delete "default" In 13.7.57 EXECUTE_COMMAND_LINE: argument WAIT: [347:27] delete "default" argument EXITSTAT: [347:30] delete "default" argument CMDSTAT: [348:2 ] delete "default" In 13.7.65 GET_COMMAND: argument LENGTH: [351:14] delete "default" argument STATUS: [351:20] delete "default" In 13.7.66 GET_COMMAND_ARGUMENT: argument NUMBER: [351:28] delete "default" argument LENGTH: [352:4 ] delete "default" argument STATUS: [352:10] delete "default" In 13.7.67 GET_ENVIRONMENT_VARIABLE: argument LENGTH: [352:37] delete "default" argument STATUS: [352:40] delete "default" In 13.7.136 RANDOM_SEED: argument SIZE: [381:34] delete "default" argument PUT: [382:1 ] delete "default" argument GET: [382:4 ] delete "default" In 13.7.167 THIS_IMAGE: argument DIM: [395:6] delete "default" In 14.11.4 IEEE_GET_FLAG: argument FLAG_VALUE: [414:6] delete "default" In 14.11.5 IEEE_GET_HALTING MODE: argument HALTING: [414:19] delete "default" In 14.11.8 IEEE_GET_UNDERFLOW_MODE: argument GRADUAL: [415:22] delete "default" In 14.11.19 IEEE_SET_FLAG: argument FLAG_VALUE: [419:27] delete "default" In 14.11.20 IEEE_SET_HALTING_MODE: argument HALTING: [419:38] delete "default" In 14.11.23 IEEE_SET_UNDERFLOW_MODE: argument GRADUAL: [421:4] delete "default" --_000_4AA982B1265F43408480F737BE12F4D35F8EEB4EORSMSX103amrcor_ Content-Type: text/html; charset="us-ascii" Content-Transfer-Encoding: quoted-printable

Hi, WG5 – I have put paper J3/14-168 on the J3= server for WG5 consideration at joint meeting #204 in Las Vegas, 23-27-Jun= -2014.  It asks for an addition to the Fortran 2015 work plan.  I= would appreciate country and individual consideration of this item.

 

Thanks       &nbs= p;            &= nbsp;           &nbs= p;            &= nbsp; /Stan

 

        &nbs= p;            &= nbsp;           &nbs= p;            &= nbsp;            J3/= 14-168

To:      J3

Subject: F2015: allow non-default kinds in arguments= to intrinsics

From:    Stan Whitlock

Date: 2014 June 07

Ref:     14-007r1

 

1. Introduction

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

 

In Fortran 2008 we extended the allowed kinds for OP= EN and INQUIRE

specifiers from default kind to any kind. See 14-007= r1 [209] OPEN (RECL=3D)

or [237] INQUIRE (NEXTREC=3D).  F2008 did not c= hange default character usage

in these specifiers.

 

Several of the intrinsic procedures [chapter 13] and= the IEEE intrinsic

module procedures [chapter 14] require that their ar= guments be of default

kind.  This is unnecessary.  The proposal = is to extend these arguments to

any kind.  There is no change proposed for defa= ult character arguments or

for default kinds for function results.

 

2. Proposal for 2015 work plan

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

 

Extend the kinds for arguments in certain intrinsic = and intrinsic module

procedures to allow any kinds, not just default kind= s.  The procedures

and their arguments that are affected are:

 

[342:17] 13.7.44  DATE_AND_TIME (, , , VALUES)<= o:p>

 

[347:21] 13.7.57  EXECUTE_COMMAND_LINE ( , WAIT= , EXITSTAT, CMDSTAT, )

 

[351:7 ] 13.7.65  GET_COMMAND ( , LENGTH, STATU= S)

 

[351:24] 13.7.66  GET_COMMAND_ARGUMENT (NUMBER = , , LENGTH, STATUS)

 

[352:27] 13.7.67  GET_ENVIRONMENT_VARIABLE ( , = , LENGTH, STATUS, )

 

[381:30] 13.7.136 RANDOM_SEED (SIZE, PUT, GET)<= /o:p>

 

[395:1 ] 13.7.167 THIS_IMAGE ( , DIM)

 

[414:1 ] 14.11.4  IEEE_GET_FLAG ( , FLAG_VALUE)=

 

[414:12] 14.11.5  IEEE_GET_HALTING MODE ( , HAL= TING)

 

[415:19] 14.11.8  IEEE_GET_UNDERFLOW_MODE (GRAD= UAL)

 

[419:19] 14.11.19 IEEE_SET_FLAG ( , FLAG_VALUE)=

 

[419:31] 14.11.20 IEEE_SET_HALTING_MODE ( , HALTING)=

 

[421:1 ] 14.11.23 IEEE_SET_UNDERFLOW_MODE (GRADUAL)<= o:p>

 

 

3. Draft Edits to 14-007r1

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D

 

In 13.7.44 DATE_AND_TIME:

  argument VALUES: [342:33] delete "defaul= t"

 

In 13.7.57 EXECUTE_COMMAND_LINE:

   argument WAIT:     = [347:27] delete "default"

   argument EXITSTAT: [347:30] delete &quo= t;default"

   argument CMDSTAT:  [348:2 ] delete= "default"

 

In 13.7.65 GET_COMMAND:

  argument LENGTH: [351:14] delete "defaul= t"

  argument STATUS: [351:20] delete "defaul= t"

 

In 13.7.66 GET_COMMAND_ARGUMENT:

  argument NUMBER: [351:28] delete "defaul= t"

  argument LENGTH: [352:4 ] delete "defaul= t"

  argument STATUS: [352:10] delete "defaul= t"

 

In 13.7.67 GET_ENVIRONMENT_VARIABLE:

  argument LENGTH: [352:37] delete "defaul= t"

 argument STATUS: [352:40] delete "default= "

 

In 13.7.136 RANDOM_SEED:

  argument SIZE: [381:34] delete "default&= quot;

  argument PUT:  [382:1 ] delete "def= ault"

  argument GET:  [382:4 ] delete "def= ault"

 

In 13.7.167 THIS_IMAGE:

  argument DIM: [395:6] delete "default&qu= ot;

 

In 14.11.4 IEEE_GET_FLAG:

  argument FLAG_VALUE: [414:6] delete "def= ault"

 

In 14.11.5 IEEE_GET_HALTING MODE:

  argument HALTING: [414:19] delete "defau= lt"

 

In 14.11.8 IEEE_GET_UNDERFLOW_MODE:

  argument GRADUAL: [415:22] delete "defau= lt"

 

In 14.11.19 IEEE_SET_FLAG:

  argument FLAG_VALUE: [419:27] delete "de= fault"

 

In 14.11.20 IEEE_SET_HALTING_MODE:

  argument HALTING: [419:38] delete "defau= lt"

 

In 14.11.23 IEEE_SET_UNDERFLOW_MODE:

  argument GRADUAL: [421:4] delete "defaul= t"

--_000_4AA982B1265F43408480F737BE12F4D35F8EEB4EORSMSX103amrcor_-- --_004_4AA982B1265F43408480F737BE12F4D35F8EEB4EORSMSX103amrcor_ Content-Type: text/plain; name="14-168 Stan - F2015 - allow non-default kinds in arguments to intrinsics.txt" Content-Description: 14-168 Stan - F2015 - allow non-default kinds in arguments to intrinsics.txt Content-Disposition: attachment; filename="14-168 Stan - F2015 - allow non-default kinds in arguments to intrinsics.txt"; size=3294; creation-date="Sat, 07 Jun 2014 19:34:27 GMT"; modification-date="Sat, 07 Jun 2014 19:34:54 GMT" Content-Transfer-Encoding: base64 ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg ICBKMy8xNC0xNjgNClRvOiAgICAgIEozDQpTdWJqZWN0OiBGMjAxNTogYWxsb3cgbm9uLWRlZmF1 bHQga2luZHMgaW4gYXJndW1lbnRzIHRvIGludHJpbnNpY3MNCkZyb206ICAgIFN0YW4gV2hpdGxv Y2sNCkRhdGU6IDIwMTQgSnVuZSAwNw0KUmVmOiAgICAgMTQtMDA3cjENCg0KMS4gSW50cm9kdWN0 aW9uDQo9PT09PT09PT09PT09PT0NCg0KSW4gRm9ydHJhbiAyMDA4IHdlIGV4dGVuZGVkIHRoZSBh bGxvd2VkIGtpbmRzIGZvciBPUEVOIGFuZCBJTlFVSVJFDQpzcGVjaWZpZXJzIGZyb20gZGVmYXVs dCBraW5kIHRvIGFueSBraW5kLiBTZWUgMTQtMDA3cjEgWzIwOV0gT1BFTiAoUkVDTD0pDQpvciBb MjM3XSBJTlFVSVJFIChORVhUUkVDPSkuICBGMjAwOCBkaWQgbm90IGNoYW5nZSBkZWZhdWx0IGNo YXJhY3RlciB1c2FnZQ0KaW4gdGhlc2Ugc3BlY2lmaWVycy4NCg0KU2V2ZXJhbCBvZiB0aGUgaW50 cmluc2ljIHByb2NlZHVyZXMgW2NoYXB0ZXIgMTNdIGFuZCB0aGUgSUVFRSBpbnRyaW5zaWMNCm1v ZHVsZSBwcm9jZWR1cmVzIFtjaGFwdGVyIDE0XSByZXF1aXJlIHRoYXQgdGhlaXIgYXJndW1lbnRz IGJlIG9mIGRlZmF1bHQNCmtpbmQuICBUaGlzIGlzIHVubmVjZXNzYXJ5LiAgVGhlIHByb3Bvc2Fs IGlzIHRvIGV4dGVuZCB0aGVzZSBhcmd1bWVudHMgdG8NCmFueSBraW5kLiAgVGhlcmUgaXMgbm8g Y2hhbmdlIHByb3Bvc2VkIGZvciBkZWZhdWx0IGNoYXJhY3RlciBhcmd1bWVudHMgb3INCmZvciBk ZWZhdWx0IGtpbmRzIGZvciBmdW5jdGlvbiByZXN1bHRzLg0KDQoyLiBQcm9wb3NhbCBmb3IgMjAx NSB3b3JrIHBsYW4NCj09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQpFeHRlbmQgdGhl IGtpbmRzIGZvciBhcmd1bWVudHMgaW4gY2VydGFpbiBpbnRyaW5zaWMgYW5kIGludHJpbnNpYyBt b2R1bGUNCnByb2NlZHVyZXMgdG8gYWxsb3cgYW55IGtpbmRzLCBub3QganVzdCBkZWZhdWx0IGtp bmRzLiAgVGhlIHByb2NlZHVyZXMNCmFuZCB0aGVpciBhcmd1bWVudHMgdGhhdCBhcmUgYWZmZWN0 ZWQgYXJlOg0KDQpbMzQyOjE3XSAxMy43LjQ0ICBEQVRFX0FORF9USU1FICgsICwgLCBWQUxVRVMp DQoNClszNDc6MjFdIDEzLjcuNTcgIEVYRUNVVEVfQ09NTUFORF9MSU5FICggLCBXQUlULCBFWElU U1RBVCwgQ01EU1RBVCwgKQ0KDQpbMzUxOjcgXSAxMy43LjY1ICBHRVRfQ09NTUFORCAoICwgTEVO R1RILCBTVEFUVVMpDQoNClszNTE6MjRdIDEzLjcuNjYgIEdFVF9DT01NQU5EX0FSR1VNRU5UIChO VU1CRVIgLCAsIExFTkdUSCwgU1RBVFVTKQ0KDQpbMzUyOjI3XSAxMy43LjY3ICBHRVRfRU5WSVJP Tk1FTlRfVkFSSUFCTEUgKCAsICwgTEVOR1RILCBTVEFUVVMsICkNCg0KWzM4MTozMF0gMTMuNy4x MzYgUkFORE9NX1NFRUQgKFNJWkUsIFBVVCwgR0VUKQ0KDQpbMzk1OjEgXSAxMy43LjE2NyBUSElT X0lNQUdFICggLCBESU0pDQoNCls0MTQ6MSBdIDE0LjExLjQgIElFRUVfR0VUX0ZMQUcgKCAsIEZM QUdfVkFMVUUpDQoNCls0MTQ6MTJdIDE0LjExLjUgIElFRUVfR0VUX0hBTFRJTkcgTU9ERSAoICwg SEFMVElORykNCg0KWzQxNToxOV0gMTQuMTEuOCAgSUVFRV9HRVRfVU5ERVJGTE9XX01PREUgKEdS QURVQUwpDQoNCls0MTk6MTldIDE0LjExLjE5IElFRUVfU0VUX0ZMQUcgKCAsIEZMQUdfVkFMVUUp DQoNCls0MTk6MzFdIDE0LjExLjIwIElFRUVfU0VUX0hBTFRJTkdfTU9ERSAoICwgSEFMVElORykN Cg0KWzQyMToxIF0gMTQuMTEuMjMgSUVFRV9TRVRfVU5ERVJGTE9XX01PREUgKEdSQURVQUwpDQoN Cg0KMy4gRHJhZnQgRWRpdHMgdG8gMTQtMDA3cjENCj09PT09PT09PT09PT09PT09PT09PT09PT09 DQoNCkluIDEzLjcuNDQgREFURV9BTkRfVElNRToNCiAgYXJndW1lbnQgVkFMVUVTOiBbMzQyOjMz XSBkZWxldGUgImRlZmF1bHQiDQoNCkluIDEzLjcuNTcgRVhFQ1VURV9DT01NQU5EX0xJTkU6DQog ICBhcmd1bWVudCBXQUlUOiAgICAgWzM0NzoyN10gZGVsZXRlICJkZWZhdWx0Ig0KICAgYXJndW1l bnQgRVhJVFNUQVQ6IFszNDc6MzBdIGRlbGV0ZSAiZGVmYXVsdCINCiAgIGFyZ3VtZW50IENNRFNU QVQ6ICBbMzQ4OjIgXSBkZWxldGUgImRlZmF1bHQiDQoNCkluIDEzLjcuNjUgR0VUX0NPTU1BTkQ6 DQogIGFyZ3VtZW50IExFTkdUSDogWzM1MToxNF0gZGVsZXRlICJkZWZhdWx0Ig0KICBhcmd1bWVu dCBTVEFUVVM6IFszNTE6MjBdIGRlbGV0ZSAiZGVmYXVsdCINCg0KSW4gMTMuNy42NiBHRVRfQ09N TUFORF9BUkdVTUVOVDoNCiAgYXJndW1lbnQgTlVNQkVSOiBbMzUxOjI4XSBkZWxldGUgImRlZmF1 bHQiDQogIGFyZ3VtZW50IExFTkdUSDogWzM1Mjo0IF0gZGVsZXRlICJkZWZhdWx0Ig0KICBhcmd1 bWVudCBTVEFUVVM6IFszNTI6MTBdIGRlbGV0ZSAiZGVmYXVsdCINCg0KSW4gMTMuNy42NyBHRVRf RU5WSVJPTk1FTlRfVkFSSUFCTEU6DQogIGFyZ3VtZW50IExFTkdUSDogWzM1MjozN10gZGVsZXRl ICJkZWZhdWx0Ig0KICBhcmd1bWVudCBTVEFUVVM6IFszNTI6NDBdIGRlbGV0ZSAiZGVmYXVsdCIN Cg0KSW4gMTMuNy4xMzYgUkFORE9NX1NFRUQ6DQogIGFyZ3VtZW50IFNJWkU6IFszODE6MzRdIGRl bGV0ZSAiZGVmYXVsdCINCiAgYXJndW1lbnQgUFVUOiAgWzM4MjoxIF0gZGVsZXRlICJkZWZhdWx0 Ig0KICBhcmd1bWVudCBHRVQ6ICBbMzgyOjQgXSBkZWxldGUgImRlZmF1bHQiDQoNCkluIDEzLjcu MTY3IFRISVNfSU1BR0U6DQogIGFyZ3VtZW50IERJTTogWzM5NTo2XSBkZWxldGUgImRlZmF1bHQi DQoNCkluIDE0LjExLjQgSUVFRV9HRVRfRkxBRzoNCiAgYXJndW1lbnQgRkxBR19WQUxVRTogWzQx NDo2XSBkZWxldGUgImRlZmF1bHQiDQoNCkluIDE0LjExLjUgSUVFRV9HRVRfSEFMVElORyBNT0RF Og0KICBhcmd1bWVudCBIQUxUSU5HOiBbNDE0OjE5XSBkZWxldGUgImRlZmF1bHQiDQoNCkluIDE0 LjExLjggSUVFRV9HRVRfVU5ERVJGTE9XX01PREU6DQogIGFyZ3VtZW50IEdSQURVQUw6IFs0MTU6 MjJdIGRlbGV0ZSAiZGVmYXVsdCINCg0KSW4gMTQuMTEuMTkgSUVFRV9TRVRfRkxBRzoNCiAgYXJn dW1lbnQgRkxBR19WQUxVRTogWzQxOToyN10gZGVsZXRlICJkZWZhdWx0Ig0KDQpJbiAxNC4xMS4y MCBJRUVFX1NFVF9IQUxUSU5HX01PREU6DQogIGFyZ3VtZW50IEhBTFRJTkc6IFs0MTk6MzhdIGRl bGV0ZSAiZGVmYXVsdCINCg0KSW4gMTQuMTEuMjMgSUVFRV9TRVRfVU5ERVJGTE9XX01PREU6DQog IGFyZ3VtZW50IEdSQURVQUw6IFs0MjE6NF0gZGVsZXRlICJkZWZhdWx0Ig0K --_004_4AA982B1265F43408480F737BE12F4D35F8EEB4EORSMSX103amrcor_--