From owner-sc22wg5+sc22wg5-dom8=www.open-std.org@open-std.org  Wed Jul 31 11:48:31 2013
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 846AB3570B2; Wed, 31 Jul 2013 11:48:30 +0200 (CEST)
Delivered-To: sc22wg5@open-std.org
Received: from fallback.mail.timico.net (fallback.mail.timico.net [62.121.21.140])
	by www.open-std.org (Postfix) with ESMTP id D008E35700C
	for <sc22wg5@open-std.org>; Wed, 31 Jul 2013 11:48:15 +0200 (CEST)
Received: from [62.105.160.40] (helo=relay.mail.timico.net)
	by fallback.mail.timico.net with esmtp (Exim 4.76)
	(envelope-from <ian.chivers@chiversandbryan.co.uk>)
	id 1V4T0x-0005wq-CB
	for sc22wg5@open-std.org; Wed, 31 Jul 2013 10:48:15 +0100
Received: from [80.175.48.54] (helo=mail4.ukisp.com)
	by relay.mail.timico.net with esmtp (Exim 4.76)
	(envelope-from <ian.chivers@chiversandbryan.co.uk>)
	id 1V4T0h-0000Wq-Kk
	for sc22wg5@open-std.org; Wed, 31 Jul 2013 10:47:59 +0100
Received: (qmail 2877 invoked by uid 399); 31 Jul 2013 09:47:59 -0000
Received: from unknown (HELO xps7100) (86.26.160.183)
  by mail4.ukisp.com with ESMTPM; 31 Jul 2013 09:47:59 -0000
X-Originating-IP: 86.26.160.183
From: "Ian Chivers" <ian.chivers@chiversandbryan.co.uk>
To: "'Malcolm Cohen'" <malcolm@nag-j.co.jp>,
	"'sc22wg5'" <sc22wg5@open-std.org>
References: <20130724235846.299F4357176@www.open-std.org>	<51F0DD9B.6040802@net-b.de><20130725222446.98834357194@www.open-std.org>	<20130729085936.D199A35717D@www.open-std.org> <20130731062831.84EDC357134@www.open-std.org>
In-Reply-To: <20130731062831.84EDC357134@www.open-std.org>
Subject: RE: [ukfortran] (SC22WG5.5049)  ts29113 compiler conformance table
Date: Wed, 31 Jul 2013 10:49:37 +0100
Message-ID: <000301ce8dd3$4809f0f0$d81dd2d0$@chivers@chiversandbryan.co.uk>
MIME-Version: 1.0
Content-Type: multipart/alternative;
	boundary="----=_NextPart_000_0004_01CE8DDB.A9CE58F0"
X-Mailer: Microsoft Office Outlook 12.0
Thread-Index: Ac6NtzBZreIoEAUMSRK435dl2FlBQwAG+2pA
Content-Language: en-gb
Sender: owner-sc22wg5@open-std.org
Precedence: bulk

This is a multi-part message in MIME format.

------=_NextPart_000_0004_01CE8DDB.A9CE58F0
Content-Type: text/plain;
	charset="utf-8"
Content-Transfer-Encoding: quoted-printable

Here is an attempt based on Malcolm's comments.

=20

Does this cover everything?

=20

  TS conformant iso_fortran_binding.h

=20

  Assumed shape arguments for BIND(C)

=20

  CFI_CDESC_T and CFI_establish

=20

  CFI_allocate, CFI_setpointer, CFI_deallocate

=20

  =E2=80=9CCFI_section and CFI_select_part=E2=80=9D

=20

  =E2=80=9DAssumed rank=E2=80=9D

=20

  =E2=80=9DAssumed type=E2=80=9D or =E2=80=9CTYPE(*)=E2=80=9D

=20

  =E2=80=9CPass scalar to TYPE(*) DIMENSION(*)=E2=80=9D

=20

  =E2=80=9CNon-interoperable array for C_LOC/C_F_POINTER=E2=80=9D

=20

  =E2=80=9CNon-interoperable function for C_FUNLOC/C_F_PROCPTR=E2=80=9D

=20

  =E2=80=9DNew semantics for ASYNCHRONOUS attribute=E2=80=9D

=20

  =E2=80=9CRANK intrinsic function=E2=80=9D

=20

  =E2=80=9CAllocatable arguments for BIND(C)=E2=80=9D

=20

  =E2=80=9CPointer arguments for BIND(C)=E2=80=9D


------=_NextPart_000_0004_01CE8DDB.A9CE58F0
Content-Type: text/html;
	charset="utf-8"
Content-Transfer-Encoding: quoted-printable

<html xmlns:v=3D"urn:schemas-microsoft-com:vml" =
xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:m=3D"http://schemas.microsoft.com/office/2004/12/omml" =
xmlns=3D"http://www.w3.org/TR/REC-html40"><head><meta =
http-equiv=3DContent-Type content=3D"text/html; charset=3Dutf-8"><meta =
name=3DGenerator content=3D"Microsoft Word 12 (filtered =
medium)"><style><!--
/* Font Definitions */
@font-face
	{font-family:"Cambria Math";
	panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
	{font-family:Calibri;
	panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
	{font-family:Tahoma;
	panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
	{font-family:Consolas;
	panose-1:2 11 6 9 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
	{margin:0cm;
	margin-bottom:.0001pt;
	font-size:12.0pt;
	font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
	{mso-style-priority:99;
	color:blue;
	text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
	{mso-style-priority:99;
	color:purple;
	text-decoration:underline;}
p
	{mso-style-priority:99;
	mso-margin-top-alt:auto;
	margin-right:0cm;
	mso-margin-bottom-alt:auto;
	margin-left:0cm;
	font-size:12.0pt;
	font-family:"Times New Roman","serif";}
pre
	{mso-style-priority:99;
	mso-style-link:"HTML Preformatted Char";
	margin:0cm;
	margin-bottom:.0001pt;
	font-size:10.0pt;
	font-family:"Courier New";}
tt
	{mso-style-priority:99;
	font-family:"Courier New";}
p.MsoAcetate, li.MsoAcetate, div.MsoAcetate
	{mso-style-priority:99;
	mso-style-link:"Balloon Text Char";
	margin:0cm;
	margin-bottom:.0001pt;
	font-size:8.0pt;
	font-family:"Tahoma","sans-serif";}
span.HTMLPreformattedChar
	{mso-style-name:"HTML Preformatted Char";
	mso-style-priority:99;
	mso-style-link:"HTML Preformatted";
	font-family:Consolas;}
span.EmailStyle20
	{mso-style-type:personal;
	font-family:"Calibri","sans-serif";
	color:#1F497D;}
span.EmailStyle22
	{mso-style-type:personal-reply;
	font-family:"Calibri","sans-serif";
	color:#1F497D;}
span.BalloonTextChar
	{mso-style-name:"Balloon Text Char";
	mso-style-priority:99;
	mso-style-link:"Balloon Text";
	font-family:"Tahoma","sans-serif";}
.MsoChpDefault
	{mso-style-type:export-only;
	font-size:10.0pt;}
@page WordSection1
	{size:612.0pt 792.0pt;
	margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.WordSection1
	{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext=3D"edit" spidmax=3D"1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext=3D"edit">
<o:idmap v:ext=3D"edit" data=3D"1" />
</o:shapelayout></xml><![endif]--></head><body lang=3DEN-GB link=3Dblue =
vlink=3Dpurple><div class=3DWordSection1><div><div><div><p =
class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'>Here is an attempt based on Malcolm's =
comments.<o:p></o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'>Does this cover everything?<o:p></o:p></span></p><p =
class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'>=C2=A0 TS conformant iso_fortran_binding.h<o:p></o:p></span></p><p =
class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'>=C2=A0 Assumed shape arguments for BIND(C)<o:p></o:p></span></p><p =
class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'>=C2=A0 CFI_CDESC_T and CFI_establish<o:p></o:p></span></p><p =
class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'>=C2=A0 CFI_allocate, CFI_setpointer, =
CFI_deallocate<o:p></o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'>=C2=A0 =E2=80=9CCFI_section and =
CFI_select_part=E2=80=9D<o:p></o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'>=C2=A0 =E2=80=9DAssumed rank=E2=80=9D<o:p></o:p></span></p><p =
class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'>=C2=A0 =E2=80=9DAssumed type=E2=80=9D or =
=E2=80=9CTYPE(*)=E2=80=9D<o:p></o:p></span></p><p =
class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'>=C2=A0 =E2=80=9CPass scalar to TYPE(*) =
DIMENSION(*)=E2=80=9D<o:p></o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'>=C2=A0 =E2=80=9CNon-interoperable array for =
C_LOC/C_F_POINTER=E2=80=9D<o:p></o:p></span></p><p =
class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'>=C2=A0 =E2=80=9CNon-interoperable function for =
C_FUNLOC/C_F_PROCPTR=E2=80=9D<o:p></o:p></span></p><p =
class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'>=C2=A0 =E2=80=9DNew semantics for ASYNCHRONOUS =
attribute=E2=80=9D<o:p></o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'>=C2=A0 =E2=80=9CRANK intrinsic =
function=E2=80=9D<o:p></o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'>=C2=A0 =E2=80=9CAllocatable arguments for =
BIND(C)=E2=80=9D<o:p></o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal><span =
style=3D'font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497=
D'>=C2=A0 =E2=80=9CPointer arguments for =
BIND(C)=E2=80=9D<o:p></o:p></span></p></div></div></div></div></body></ht=
ml>
------=_NextPart_000_0004_01CE8DDB.A9CE58F0--

