From owner-sc22wg5@open-std.org  Fri Jan 14 23:21:54 2005
Return-Path: <owner-sc22wg5@open-std.org>
X-Original-To: sc22wg5-domo1
Delivered-To: sc22wg5-domo1@open-std.org
Received: by open-std.org (Postfix, from userid 521)
	id BC59A151AB; Fri, 14 Jan 2005 23:21:54 +0100 (CET)
X-Original-To: sc22wg5@open-std.org
Delivered-To: sc22wg5@open-std.org
Received: from dkuug.dk (ptah.dkuug.dk [195.215.30.66])
	by open-std.org (Postfix) with ESMTP id AF1AA12B05
	for <sc22wg5@open-std.org>; Fri, 14 Jan 2005 23:21:52 +0100 (CET)
Received: from fmsfmr005.fm.intel.com (fmr15.intel.com [192.55.52.69])
	by dkuug.dk (8.12.10/8.9.2) with ESMTP id j0EMIFwE026511
	for <sc22wg5@dkuug.dk>; Fri, 14 Jan 2005 23:18:23 +0100 (CET)
	(envelope-from stan.whitlock@intel.com)
Received: from fmsfmr100.fm.intel.com (fmsfmr100.fm.intel.com [10.1.192.58])
	by fmsfmr005.fm.intel.com (8.12.10/8.12.10/d: major-outer.mc,v 1.1 2004/09/17 17:50:56 root Exp $) with ESMTP id j0ELTHws002352
	for <sc22wg5@dkuug.dk>; Fri, 14 Jan 2005 21:29:17 GMT
Received: from fmsmsxvs042.fm.intel.com (fmsmsxvs042.fm.intel.com [132.233.42.128])
	by fmsfmr100.fm.intel.com (8.12.10/8.12.10/d: major-inner.mc,v 1.2 2004/09/17 18:05:01 root Exp $) with SMTP id j0ELSoTm023398
	for <sc22wg5@dkuug.dk>; Fri, 14 Jan 2005 21:29:17 GMT
Received: from fmsmsx332.amr.corp.intel.com ([132.233.42.148])
 by fmsmsxvs042.fm.intel.com (SAVSMTP 3.1.2.35) with SMTP id M2005011413291622662
 for <sc22wg5@dkuug.dk>; Fri, 14 Jan 2005 13:29:16 -0800
Received: from fmsmsx311.amr.corp.intel.com ([132.233.42.214]) by fmsmsx332.amr.corp.intel.com with Microsoft SMTPSVC(6.0.3790.211);
	 Fri, 14 Jan 2005 13:29:16 -0800
Received: from hdsmsx402.amr.corp.intel.com ([10.127.2.62]) by fmsmsx311.amr.corp.intel.com with Microsoft SMTPSVC(6.0.3790.211);
	 Fri, 14 Jan 2005 13:29:16 -0800
X-MimeOLE: Produced By Microsoft Exchange V6.5.7226.0
Content-class: urn:content-classes:message
MIME-Version: 1.0
Content-Type: multipart/alternative;
	boundary="----_=_NextPart_001_01C4FA80.18A8EEB5"
Subject: WG5 leter ballot on interpretations - N1612
Date: Fri, 14 Jan 2005 16:29:14 -0500
Message-ID: <E6A0A29608113D4B815E21411A0A231D014BEFE0@hdsmsx402.amr.corp.intel.com>
X-MS-Has-Attach: 
X-MS-TNEF-Correlator: 
Thread-Topic: WG5 leter ballot on interpretations - N1612
Thread-Index: AcT6gBgddg4KDT6vTGikjNndJjPTkQ==
From: "Whitlock, Stan" <stan.whitlock@intel.com>
To: "wg5" <sc22wg5@dkuug.dk>
Cc: "cc" <Stan.Whitlock@intel.com>
X-OriginalArrivalTime: 14 Jan 2005 21:29:16.0059 (UTC) FILETIME=[194F1EB0:01C4FA80]
X-Scanned-By: MIMEDefang 2.44
X-Spam-Score: 0.519 () HTML_60_70,HTML_MESSAGE
Sender: owner-sc22wg5@open-std.org
Precedence: bulk

This is a multi-part message in MIME format.

------_=_NextPart_001_01C4FA80.18A8EEB5
Content-Type: text/plain;
	charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

John - Here is my ballot on the F95 and F03 interps in N1612.  Thanks
/Stan

=20

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

=20

                                          ISO/IEC JTC1/SC22/WG5 N1612

=20

The following Fortran 2003 interpretations are being balloted:

=20

Yes   No    Number       Title

-Y-   ---   000004     Value returned by MAXVAL/MINVAL

-Y-   ---   000006     Character length specification of a function
result

-Y-   ---   000008     Optional arguments to MAX/MIN

-Y-   ---   000017     Characteristics of an array function result

-Y-   ---   000023     Termination of the previous record by a WRITE=20

                       statement

-Y-   ---   000030     Ordering requirements on definition of
specification=20

                       functions

-Y-   ---   000031     Association of pointer function result with

                       INTENT(OUT) dummy argument (subsumed by 000074)

-Y-   ---   000068     Asterisks as I/O units

-Y-   ---   000074     TARGET dummy arguments and POINTER expressions

-Y-   ---   000078     Resolving generic procedure references

-Y-   ---   000096     End-of-record and PAD

-Y-   -N-   000098     Are dummy functions returning assumed-length

                       character legal? (duplicate of 000006)

---   -N-   000102     mask-expr evaluated only once

-Y-   ---   000103     Derived type name DOUBLEPRECISION

-Y-   ---   000104     Representation method of result of REAL

-Y-   ---   F90/000049 Characteristics of function results

-Y-   ---   F90/000070 Characteristics specified by interface bodies

-Y-   ---   F90/000096 Definition of "Declaration"

-Y-   ---   F90/000140 TARGET attribute for a derived-type object with a

                       pointer component

-Y-   ---   F90/000180 Unambiguous generic references

-Y-   ---   F90/000206 Collating sequence inconsistencies

-Y-   ---   F90/000207 Integer bit-model inconsistency

-Y-   ---   F90/000208 nonadvancing output followed by list directed
output

-Y-   ---   F90/000210 nonadvancing write followed by list directed
write

-Y-   ---   JP-24      The bnf term shared-term-do-construct

-Y-   ---   F03/0001   Generic type-bound procedures

-Y-   ---   F03/0002   Component value for pointer components

-Y-   -N-   F03/0003   Referencing deferred bindings {subsumed by

                       F03/0004}

-Y-   -N-   F03/0004   Type-bound procedures and undefined

                       association status

-Y-   ---   F03/0005   Argument association and the TARGET attribute

-Y-   ---   F03/0006   Intrinsic assignment and allocatable components

-Y-   ---   F03/0007   Finalization of structure constructors in

                       specifications

-Y-   ---   F03/0009   VALUE attribute for passed-object dummy arguments

-Y-   ---   F03/0010   Unlimited polymorphic pointer/allocatable dummy

                       arguments

-Y-   ---   F03/0011   Allocating objects of abstract types

-Y-   ---   F03/0013   VALUE attribute for polymorphic dummy arguments

-Y-   ---   F03/0014   Automatic arrays in interface bodies

-Y-   ---   F03/0015   TARGET attribute for associate names

-Y-   ---   F03/0016   Invoking type-bound procedures via array objects

=20

Comments:

=20

  NO vote on 000098 {F95} :  I agree with JohnR and Malcolm that interp
000006 {F95}

                             doesn't cover this.

=20

  NO vote on 000102 {F95} :  I agree with Malcolm that the edits aren't
right.

=20

  NO vote on F03/0003 :  The edit is not correct - this is not
compile-time checkable.

=20

  NO vote on F03/0004 :  The edit is not correct - this is not
compile-time checkable.

=20

Thanks                  /Stan


------_=_NextPart_001_01C4FA80.18A8EEB5
Content-Type: text/html;
	charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<html>

<head>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Dus-ascii">
<meta name=3DGenerator content=3D"Microsoft Word 11 (filtered)">
<style>
<!--
 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
	{margin:0in;
	margin-bottom:.0001pt;
	font-size:12.0pt;
	font-family:"Times New Roman";}
a:link, span.MsoHyperlink
	{color:blue;
	text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
	{color:purple;
	text-decoration:underline;}
span.EmailStyle17
	{font-family:Arial;
	color:windowtext;}
@page Section1
	{size:8.5in 11.0in;
	margin:1.0in 1.25in 1.0in 1.25in;}
div.Section1
	{page:Section1;}
-->
</style>

</head>

<body lang=3DEN-US link=3Dblue vlink=3Dpurple>

<div class=3DSection1>

<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'>John - Here is my ballot on the F95 and F03 interps =
in N1612.
&nbsp;Thanks&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /Stan</span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'>&nbsp;</span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D</span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'>&nbsp;</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n=
bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb=
sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
ISO/IEC JTC1/SC22/WG5 N1612</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>The following =
Fortran 2003
interpretations are being balloted:</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>Yes&nbsp;&nbsp; =
No&nbsp;&nbsp;&nbsp; Number&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Title</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; 000004&nbsp;&nbsp;&nbsp;&nbsp; Value
returned by MAXVAL/MINVAL</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; 000006&nbsp;&nbsp;&nbsp;&nbsp;
Character length specification of a function result</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; 000008&nbsp;&nbsp;&nbsp;&nbsp;
Optional arguments to MAX/MIN</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; 000017&nbsp;&nbsp;&nbsp;&nbsp;
Characteristics of an array function result</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; 000023&nbsp;&nbsp;&nbsp;&nbsp;
Termination of the previous record by a WRITE </span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
statement</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; 000030&nbsp;&nbsp;&nbsp;&nbsp;
Ordering requirements on definition of specification </span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
functions</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; 000031&nbsp;&nbsp;&nbsp;&nbsp;
Association of pointer function result with</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
INTENT(OUT) dummy argument (subsumed by 000074)</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; 000068&nbsp;&nbsp;&nbsp;&nbsp;
Asterisks as I/O units</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; 000074&nbsp;&nbsp;&nbsp;&nbsp;
TARGET dummy arguments and POINTER expressions</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; 000078&nbsp;&nbsp;&nbsp;&nbsp;
Resolving generic procedure references</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; 000096&nbsp;&nbsp;&nbsp;&nbsp;
End-of-record and PAD</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
-N-&nbsp;&nbsp; 000098&nbsp;&nbsp;&nbsp;&nbsp; Are
dummy functions returning assumed-length</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
character legal? (duplicate of 000006)</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>---&nbsp;&nbsp; =
-N-&nbsp;&nbsp; 000102&nbsp;&nbsp;&nbsp;&nbsp;
mask-expr evaluated only once</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; 000103&nbsp;&nbsp;&nbsp;&nbsp;
Derived type name DOUBLEPRECISION</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; 000104&nbsp;&nbsp;&nbsp;&nbsp;
Representation method of result of REAL</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F90/000049
Characteristics of function results</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F90/000070
Characteristics specified by interface bodies</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F90/000096
Definition of &quot;Declaration&quot;</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F90/000140
TARGET attribute for a derived-type object with a</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
pointer component</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F90/000180
Unambiguous generic references</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F90/000206
Collating sequence inconsistencies</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F90/000207
Integer bit-model inconsistency</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F90/000208
nonadvancing output followed by list directed output</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F90/000210
nonadvancing write followed by list directed write</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; JP-24&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; The
bnf term shared-term-do-construct</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F03/0001&nbsp;&nbsp;
Generic type-bound procedures</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F03/0002&nbsp;&nbsp;
Component value for pointer components</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
-N-&nbsp;&nbsp; F03/0003&nbsp;&nbsp;
Referencing deferred bindings {subsumed by</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
F03/0004}</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
-N-&nbsp;&nbsp; F03/0004&nbsp;&nbsp;
Type-bound procedures and undefined</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>&nbsp;&nbsp; =
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;association
status</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F03/0005&nbsp;&nbsp;
Argument association and the TARGET attribute</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F03/0006&nbsp;&nbsp;
Intrinsic assignment and allocatable components</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F03/0007&nbsp;&nbsp;
Finalization of structure constructors in</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;specifi=
cations</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F03/0009&nbsp;&nbsp; VALUE
attribute for passed-object dummy arguments</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F03/0010&nbsp;&nbsp;
Unlimited polymorphic pointer/allocatable dummy</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
arguments</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F03/0011&nbsp;&nbsp;
Allocating objects of abstract types</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F03/0013&nbsp;&nbsp; VALUE
attribute for polymorphic dummy arguments</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F03/0014&nbsp;&nbsp;
Automatic arrays in interface bodies</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F03/0015&nbsp;&nbsp;
TARGET attribute for associate names</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>-Y-&nbsp;&nbsp; =
---&nbsp;&nbsp; F03/0016&nbsp;&nbsp;
Invoking type-bound procedures via array objects</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>Comments:</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>&nbsp; NO vote on =
000098 {F95} :&nbsp;
I agree with JohnR and Malcolm that interp 000006 =
{F95}</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;doesn't
cover this.</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>&nbsp; NO vote on =
000102 {F95} :&nbsp;
I agree with Malcolm that the edits aren't right.</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>&nbsp; NO vote on =
F03/0003 : &nbsp;The
edit is not correct - this is not compile-time =
checkable.</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier New"'>&nbsp; NO vote on =
F03/0004 : &nbsp;The
edit is not correct - this is not compile-time =
checkable.</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>&nbsp;</span></font></p>

<p class=3DMsoNormal style=3D'text-autospace:none'><font size=3D2 =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New"'>Thanks&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /Stan</span></font></p>

</div>

</body>

</html>

------_=_NextPart_001_01C4FA80.18A8EEB5--
