WPCJ i>Ks?$E[i:egSs96N2n1)FEj,n2 )yҩx&{bʼ罉{#w"0ů 3ZZc.b \Ҵ?Pw C8#[pe޾戉G+wZE*Ba!9G$NCMHlA\!<68紺Ii".Zd#7v`"|U 7l<Ί& *`S.*}-9,J h,ہk O&;t Ѓpce, |ĚfYЊt5#E1خl9;I# %U: 0*# z? 0   F   N^ w4 m 0e  1 72W 1u 72 0c0 1 72BL 0hUT""Arial Regular($XXXXUSUS.,$X,X$      =dd=HP LaserJet 5M PCL,,,,0C:\COREL\WORDPE~1\TEMPLATE\CUSTOM~1\CUSTOM~1\ANSIJ3~1.WPTC:\Corel\WordPerfect Office 2000\Template\Custom WP Templates\Custom WP Templates\ANSI J3 New Document.wpt  'USUS.,$X,X$   _>(# J3/02221r2  X NCITS/J3ANSIFortranStandardsCommittee>(#CraigT.Dedo , CommentsonSection16LL<(#August13,2002 L @(#Page  1  ڀof  3  (3$ !XXUSUS.,$X,X$      =dd=  ݁Level 1Level 2Level 3Level 4Level 5Level 1Level 2Level 3Level 4Level 5Level 1Level 2Level 3Level 4Level 5Level 1Level 2Level 3Level 4Level 5Level 1Level 2Level 3Level 4Level 5~ - <, 3|xU )USUS.,$X,X$   _.H8C:\ANSI_J3\2002\02-221r2.wpdHC:\ANSI_J3\2002\02-221r2.wpd/  (3$ !XXUSUS.,$X,X$      =dd=   (5hCEKQW]cioAutoList11.1.1.1.1.1.1.1.1.3#37=CIQYag1.a.i.(1)(a)(i)1)a)i)(;3$2#  0  .3  0  (EhCEKQW]cioAutoList21.1.1.1.1.1.1.1.1.ANSI J3 New Document  ( ' $Craig T. Dedo$0Craig T. Dedop17130 W. Burleigh Place Brookfield, WI 53005-2759 00-3nn .    3 2bV8ObsolescentObsolescent Features/ Z<Century Schoolbook Regular !XXUSUS.,$X,X$      =Vdd=  _@AA CommentsonSection16   To:0  0(#(#04(#(#J34(#4(# From:0  04(#(#CraigDedo` 4(#4(# Date:0  04(#(#August13,2002( 4(#4(# Subject:0 4 CommentsonSection16 L4(#4(#  (5h83 10  Edits  (#(# 394:6-70 4 [At[63:2],weseethatanenumerationisatypealias,andanenumeratorisanamed p  constant.Thelistat[394:4-7]hasnamedconstants,typealiasesandenumerations,but 8  notenumerators.Forconsistency,eitherenumeratorsneedtobeinthelist,or \  enumerationsdon'tneedtobe.Choosethelatterforsimplicity.Editor:Delete $   enumerations,.] 4(#4(# 394:23,270 4 [It'sunlikelythatonenameisusedtoidentifyanother.Editor:Delete thenameof  |  twice.]D 4(#4(# 395:50  04(#(#[It'sunlikelythatonenameisusedtoidentifyanother.Editor:Delete thenameof.]x 4(#4(# 396:bottom0 ` [Editor:DeleteNote16.7.It'ssaidbetterat[334:31-34].d` (#` (# 397:2,5,80 4 [ A...hasthescopeofaderived-typedefinition.Whichderived-typedefinition?Editor:   ofa=> ofitsthrice.]`4(#4(# 397:50  04(#(#[Editor:Deletethefirst derived.]L4(#4(# 397:230  [Idon'tthinkthatscopingunitsmakereferences.(#(# 0  0(#(#04(#(#Editor: making=> inwhichthe;insert occursafterthefirst procedure.]H4(#4(# 397:25+0 4 Addthefollowingparagraph:44(#4(# 8  AvariablethatappearsasaDOvariableofanimplied-DOinaDATAstatementoranarray  constructor, V  asadummyargumentinastatementfunctionstatement VC   ,orasanindex-nameina h FORALLstatementisastatemententity.Avariablethatappearsasanindex-nameina 0   FORALLconstructoranassociate-nameinaSELECTTYPEorASSOCIATEconstructisa  T! constructentity.!"!! 397:330  04(#(#[Editor: index-name=> index-name.]P#$4(#4(# 398:11-120 4 [ImpliesthataFORALLconstructhasonlyoneindex-name.Editor: theindex-name $<& => anyofitsindex-names; anested...index-name=> anindex-nameofaFORALL %' statementorFORALLconstructshallnotbethesameasanindex-nameofacontaining p&( FORALLconstruct.]8' )4(#4(# DoNOTdothisedit.Reason:Notneeded. ($"+ 399:120  [Itisn'tclearthatentitiesnotnamedinIMPORTstatementsarenotaccessiblebyhost )", association.Editor:Insert ,andonlytothoseentitiesafter body.]X*#-(#(# DoNOTmakethisedit.Reason:Theprocedurenamedeclaredbytheinterfacebodyisaglobal +D%/ name. , &0 399:180  [Aninterfacebodyisalocalentity.Editor: ,procedure-declaration-_stmt_,orinterface-body x-&1 => orprocedure-declaration-_stmt_.]@.'2(#(#  /d(3 DoNOTmakethisedit.Reasons:Welikethelistasitis.Aninterfacebodydoesnothaveaname  andthispassagedealswithnamedobjects. l 399:20-400:20 ` [Localentitiesarealreadylistedat[394:3-10].Wedon'tneedtolistthemagain. 4 Editor: Aname...nongenericname=> Anyentityofthehostthathasthesame X nongenericnameasalocalentity.Ifwedon'tremovethelist,atleastmakeit   consistentwith[394:3-10]byadding aninterface-bodysomewhere.Then,putthe   listinthesameorderasat[394:3-10]soit'seasiertoverifywe'renotcommittingthe T  errorDickWeaverobserved: Sayittwice,sayitwrongatleastonce.] x` (#` (# DoNOTmakethisedit.Reason:Welikethenoteasitis.    400:8+1-30 4 [TheessenceofNote16.10isonthepreviouspage,and,withtheeditfor[399:12],almost t  verbatim.Editor:DeleteNote16.10.]< 4(#4(# DoNOTmakethisedit.Reason:TheexistingtextmakesitclearwhenanEXTERNALstatementor (  aTYPEstatementwiththeEXTERNALattributeisrequiredinthehostscopingunit.   400:90  04(#(#[Ifanexternalordummyprocedurehasanexplicitinterface,ittherebyhasthe \  EXTERNALattribute,so withanimplicitinterfaceisredundant.Editor:Deleteit.]$ 4(#4(# 400:13,160 4 [Whichscopingunitis thatscopingunit?Itcouldbetheinnerone,ahostscopingunit,  oramodule.Editor: thatscopingunit=> thescopingunitfromwhichitisaccessed | twice.]D4(#4(#  20  Isthisaspecchange,astealthinterp,orjustclean-up? 0(#(# Thefollowingedits,ifimplemented,wouldspecifythattheappearanceofanameasthedummy   argumentofastatementfunctiondoesnotconstituteanimplicitdeclarationofavariableinthe  scopingunitthatcontainsit.Isthisaspecchange,astealthinterp,orjustclean-up? T DoNOTdoanyofthefollowingedits.JoRbelievesthattheexistingtextin02007r2isfinejustthe @ wayitisandnochangesareneeded.  397:30-320 4 [Nowthatwehavedefined statemententityand constructentitywecansimplifythe < partaboutitnotbeinganimplicitdeclarationofavariableinthescopingunitthat ` containsitsstatementorconstruct(andalsospecifyitforstatementfunctiondummy (  argumentsatthesametime).Editor:Delete.] !4(#4(# 397:36-380 4 [Editor:Delete Theappearance...construct.]$"#4(#4(# 397:41+Same0 Theappearanceofanameasthenameofastatementorconstructentityisnot #% animplicitdeclarationofavariableofthatnamewhosescopeisthescopingunit |$& thatcontainsitsstatementorconstruct.Astatementorconstructentityisnot D%' accessibleoutsideofitsstatementorconstruct. &h( (# (#  30  Notsurewhattodo ' *(#(# Donothingwithanyoftheissuesinthissection. (!+ Ѐ[394:4]refersto Namedvariablesthatarenotstatementorconstructentities.Ican'tfindwhere T)", statementandconstructentitiesaredefinedtobevariables.So namedvariablesthatarenot *x#- statementorconstructentitiesappearstobejust namedvariables.That'sprobablywrong,sowe *@$. shouldperhapssaysomewherethatstatementandconstructentitiesarevariables. +%/ [394:19-395:6]doesn'tmakesense.[394:19-20]claimstobeaboutthenamesoflocalentities.Then <-&1 thenextthreeitemsintroducedbythatsentenceareaboutprocedurenameswithintheir .`'2 subprograms.Anameforanexternalprocedureisn'talocalnamewithinitssubprogram,butthe .((3 parentheticremarksaysthatoneusageoftheprocedurenameisallowedonlyformoduleorinternal  procedures,implyingthattheothercase,anexternalprocedure,isalocalentity. l Ifaprocedureisrecursivelyreferencedfromwithinitself,doestheprocedurenameidentifythat X reference?   Thepartsaboutcommonblocksappeartobeadequatelycoveredby16.2.1. T  The exceptpartoftheintrototheseitemsdoesn'tmakesense:Theappearanceofaprocedure  @ namewithinthatprocedureisn't inanotherscopingunit.    Ifitems(1)!(3)actuallydomakesense,weneedtosaysomethingaboutreferringtotheprocedure <  nametogettheinterfaceforaprocedurepointerordeferredtype-boundproceduredeclaredwithin `  thesubprogram.Theseitemsappeartoprohibitsuchusages. (   References  \  02-007r2,Fortran2000Draft $  [EndofJ3/02-221r1]