From owner-sc22wg5+sc22wg5-dom8=www.open-std.org@open-std.org  Mon Mar 14 17:39:09 2016
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 C00633586EA; Mon, 14 Mar 2016 17:39:09 +0100 (CET)
Delivered-To: sc22wg5@open-std.org
Received: from out1-srv2.flexfilter.nl (out1-srv2.flexfilter.nl [62.84.241.67])
	(using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits))
	(No client certificate requested)
	by www.open-std.org (Postfix) with ESMTP id 7DC3F356F47
	for <sc22wg5@open-std.org>; Mon, 14 Mar 2016 17:39:00 +0100 (CET)
Received: from [89.18.180.60] (helo=mail.antivirus.flexwebhosting.nl)
	by srv2a.flexfilter.nl with esmtp (Exim 4.85)
	(envelope-from <forcheck@forcheck.nl>)
	id 1afVWB-0000g5-3Z
	for sc22wg5@open-std.org; Mon, 14 Mar 2016 17:38:59 +0100
Received: from srv2059.flexwebhosting.nl ([89.18.176.59])
	by mail.antivirus.flexwebhosting.nl with esmtp (Exim 4.85_2)
	(envelope-from <forcheck@forcheck.nl>)
	id 1afVWK-0008LN-3b
	for sc22wg5@open-std.org; Mon, 14 Mar 2016 17:39:04 +0100
Received: from [145.129.230.224] (helo=PCForcheck)
	by srv2059.flexwebhosting.nl with esmtp (Exim 4.60)
	(envelope-from <forcheck@forcheck.nl>)
	id 1afVX0-0004lV-Tx
	for sc22wg5@open-std.org; Mon, 14 Mar 2016 17:39:47 +0100
From: <erik@forcheck.nl>
To: <sc22wg5@open-std.org>
Subject: F08/C201
Date: Mon, 14 Mar 2016 17:38:43 +0100
Message-ID: <006b01d17e0f$f8e9dbe0$eabd93a0$@forcheck.nl>
MIME-Version: 1.0
Content-Type: multipart/alternative;
	boundary="----=_NextPart_000_006C_01D17E18.5AB03FB0"
X-Mailer: Microsoft Outlook 16.0
Thread-Index: AQItehXFXHxI3IAm8YdR+FJZclQjhg==
Content-Language: nl
X-Filter-ID: s0sct1PQhAABKnZB5plbIViX8Ok/cW3CCIXYGqQyNxdDBMjHO16K80oRNblReI11x5YB+7NnUQEm
 Uw8kSDgJqxRv8dcjjQ+ZEDAwWyPl9MObWNIntKKEugcE06HUTZW6lNsjl/D0CRowqxU8xqCxBuqk
 T1mVyy1Qpvyd2nXGhj6Ja9JlpJn4ZlYoPH6826A2HHASJNUmoOHSoqgqxfHmWS2+fo1dT+Xhz1sx
 jc1rnycYgBGJt+LxqX0DcUiI5Pns2Qu4rZTUwq6dxvK/FpC2T2kxtHaIUEwrwo+nz0PExiM9Bxb9
 CqFkX7mtP3wGJ3GfgY9ou2TWClNTn7aHEY9l2tjaf9AIE713TBiI2WzBMBM7aQU1ocfgUL/c6zQC
 KQ2vrOjsBxSo3OuQ7WRDUhbxp0PglvlGA31jXJulvcg9llNTHG/VCUZOF92Cu3qb+2NJRj23Plos
 wc8EFaMVw+Tbg3lLI/1aXOIvvk+hErlYwzxjCL3iXuvH9t9BKOmy6Vy3X/rrifzFlnX3dmFkeNBd
 G6INMS1CpjQso2qh0j9PXsNDVA6DDYBlx3gObTbcRYHe6J1fhOzjF0b4LXcjJZ5lonh53qyalACq
 /IXyZ96b0jk55VN2Q1xv1lNtHRulT2bwsDTqf92j+HgdYHRyZH3fqDLy1M/6RWUxnTHJalM4TkY=
X-Report-Abuse-To: spam@srv3a.flexfilter.nl
X-Filter-Fingerprint: IFrWXGses7OKB5S5G8/dJRn/7L7+nnclbWGk7OJ1jHJA3cTUQ1R++keuE7RDJ8Kg3RbMLUalw1oC
 mj99/u+PoqoVy8a3lsStJtAvpObFX0Wok1JBYnOLzfRIhlEHQynLUpndEJ0YoaLytXXo8BMTaX2p
 Mk7LBarWD9Fj4R3eIu5cOy/3Wm9qfF/CZNvP/2Kowv61T+KDYyYtREgszdyFwv8IxCB3p/oCKvxr
 eyISh3JGb7OS5oVgiO+kDxZrVPLz3MmEGC2PrUKqLq5WmHK+Nw==
X-Originating-IP: 89.18.180.60
X-SpamExperts-Domain: fxwrelaydummydomein.nl
X-SpamExperts-Username: 89.18.180.60
Authentication-Results: flexfilter.nl; auth=pass smtp.auth=89.18.180.60@fxwrelaydummydomein.nl
X-SpamExperts-Outgoing-Class: ham
X-SpamExperts-Outgoing-Evidence: Combined (0.20)
X-Recommended-Action: accept
Sender: owner-sc22wg5@open-std.org
Precedence: bulk

This is a multipart message in MIME format.

------=_NextPart_000_006C_01D17E18.5AB03FB0
Content-Type: text/plain;
	charset="us-ascii"
Content-Transfer-Encoding: 7bit

Is the following code standard conforming?

C201 disallows the End Subroutine statement. Is this correct?

 

Subroutine sub1

  Block

    Interface

      Subroutine sub

      End Subrouttine

    End Interface

  End Block

End

 

Erik Kruyt

Forcheck b.v.


------=_NextPart_000_006C_01D17E18.5AB03FB0
Content-Type: text/html;
	boundary="----=_NextPart_000_004A_01D17A0A.B69AE080";
	charset="us-ascii"
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=3Dus-ascii"><meta name=3DGenerator content=3D"Microsoft Word 15 =
(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;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
	{margin:0cm;
	margin-bottom:.0001pt;
	font-size:11.0pt;
	font-family:"Calibri",sans-serif;
	mso-fareast-language:EN-US;}
a:link, span.MsoHyperlink
	{mso-style-priority:99;
	color:#0563C1;
	text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
	{mso-style-priority:99;
	color:#954F72;
	text-decoration:underline;}
p.msonormal0, li.msonormal0, div.msonormal0
	{mso-style-name:msonormal;
	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;}
span.E-mailStijl18
	{mso-style-type:personal-compose;
	font-family:"Calibri",sans-serif;
	color:windowtext;}
.MsoChpDefault
	{mso-style-type:export-only;
	font-size:10.0pt;}
@page WordSection1
	{size:612.0pt 792.0pt;
	margin:70.85pt 70.85pt 70.85pt 70.85pt;}
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=3DNL =
link=3D"#0563C1" vlink=3D"#954F72"><div class=3DWordSection1><p =
class=3DMsoNormal><span lang=3DEN-US>Is the following code standard =
conforming?<o:p></o:p></span></p><p class=3DMsoNormal><span =
lang=3DEN-US>C201 disallows the End Subroutine statement. Is this =
correct?<o:p></o:p></span></p><p class=3DMsoNormal><span =
lang=3DEN-US><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal><span =
lang=3DEN-US>Subroutine sub1<o:p></o:p></span></p><p =
class=3DMsoNormal><span lang=3DEN-US>&nbsp; =
Block<o:p></o:p></span></p><p class=3DMsoNormal><span =
lang=3DEN-US>&nbsp;&nbsp;&nbsp; Interface<o:p></o:p></span></p><p =
class=3DMsoNormal><span lang=3DEN-US>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
Subroutine sub<o:p></o:p></span></p><p class=3DMsoNormal><span =
lang=3DEN-US>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End =
Subrouttine<o:p></o:p></span></p><p class=3DMsoNormal><span =
lang=3DEN-US>&nbsp;&nbsp;&nbsp; End Interface<o:p></o:p></span></p><p =
class=3DMsoNormal><span lang=3DEN-US>&nbsp; End =
Block<o:p></o:p></span></p><p class=3DMsoNormal><span =
lang=3DEN-US>End<o:p></o:p></span></p><p class=3DMsoNormal><span =
lang=3DEN-US><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal><span =
lang=3DEN-US>Erik Kruyt<o:p></o:p></span></p><p class=3DMsoNormal><span =
lang=3DEN-US>Forcheck b.v.<o:p></o:p></span></p></div></body></html>
------=_NextPart_000_006C_01D17E18.5AB03FB0--


