WPCJ _?'a,o҉Xѐl$'S'%g:ͭu,;klt;P|PM I)V ΀L9@J`/r3 S2Qs]wG|g.h\B$$_4x3hP=SgZw30ۤdIZRQ!;b$wT@C|xcxmmNJZ߾MV*H:u["6\C]Eơ6& .0!w2l4rTY&܂gΨ4e5w I#Z9N9 >RW g]ShMz/R`xZAT)vLu/W\77@Is)e=\Y v(~h:(ggp㥳KXνYz5FZ4B]ݥQF0# %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/02221r1  X NCITS/J3ANSIFortranStandardsCommittee>(#CraigT.Dedo , CommentsonSection16LL<(#August12,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-221r1.wpdHC:\ANSI_J3\2002\02-221r1.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$      =dd=  _@AA CommentsonSection16   To:0  0(#(#04(#(#J34(#4(# From:0  04(#(#CraigDedo` 4(#4(# Date:0  04(#(#August12,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 [Weneversaythattheentitiesdiscussedinthissubclauseareconstructentities--we 4 justdefinetheirscopes.Wemakealistoflocalentitiesatthebeginningof16.2,soit  seemsreasonabletomakealistofconstructentitieshere.Thisalsosaysthey're h variables.]0  4(#4(# 8  VariablesthatappearasDOvariablesofimplied-DOsinDATAstatementsorarray !" constructors, V  asdummyargumentsinstatementfunctionstatements Vp   ,orasindex-namesinFORALL "# statementsarestatemententities.Variablesthatappearasindex-namesinFORALL P#$ constructsorassociate-namesinSELECTTYPEorASSOCIATEconstructsareconstruct $t% entities.$<&!! 397:33[Editor: index-name=> index-name.] p&( 398:11-120 4 [ImpliesthataFORALLconstructhasonlyoneindex-name.Editor: theindex-name (\!* => anyofitsindex-names; anested...index-name=> anindex-nameofaFORALL ($"+ statementorFORALLconstructshallnotbethesameasanindex-nameofacontaining )", FORALLconstruct.]X*#-4(#4(# DoNOTdothisedit.Reason:Notneeded. +D%/ 399:120  [Itisn'tclearthatentitiesnotnamedinIMPORTstatementsarenotaccessiblebyhost , &0 association.Editor:Insert ,andonlytothoseentitiesafter body.]x-&1(#(#   @.'2 DoNOTmakethisedit.Reason:Theprocedurenamedeclaredbytheinterfacebodyisaglobal   name. l 399:180  [Aninterfacebodyisalocalentity.Editor: ,procedure-declaration-_stmt_,orinterface-body 4 => orprocedure-declaration-_stmt_.]X(#(# DoNOTmakethisedit.Reasons:Welikethelistasitis.Aninterfacebodydoesnothaveaname   andthispassagedealswithnamedobjects. T  399:20-400:20 ` [Localentitiesarealreadylistedat[394:3-10].Wedon'tneedtolistthemagain.  x Editor: Aname...nongenericname=> Anyentityofthehostthathasthesame  @ nongenericnameasalocalentity.Ifwedon'tremovethelist,atleastmakeit    consistentwith[394:3-10]byadding aninterface-bodysomewhere.Then,putthe t  listinthesameorderasat[394:3-10]soit'seasiertoverifywe'renotcommittingthe <  errorDickWeaverobserved: Sayittwice,sayitwrongatleastonce.]` ` (#` (# DoNOTmakethisedit.Reason:Welikethenoteasitis.   400:8+1-30 4 [TheessenceofNote16.10isonthepreviouspage,and,withtheeditfor[399:12],almost \  verbatim.Editor:DeleteNote16.10.]$ 4(#4(# DoNOTmakethisedit.Reason:TheexistingtextmakesitclearwhenanEXTERNALstatementor  aTYPEstatementwiththeEXTERNALattributeisrequiredinthehostscopingunit. | 400:90  04(#(#[Ifanexternalordummyprocedurehasanexplicitinterface,ittherebyhasthe D EXTERNALattribute,so withanimplicitinterfaceisredundant.Editor:Deleteit.] h4(#4(# 400:13,160 4 [Whichscopingunitis thatscopingunit?Itcouldbetheinnerone,ahostscopingunit,  oramodule.Editor: thatscopingunit=> thescopingunitfromwhichitisaccessed d twice.],4(#4(#  20  Isthisaspecchange,astealthinterp,orjustclean-up? (#(# Thefollowingedits,ifimplemented,wouldspecifythattheappearanceofanameasthedummy  argumentofastatementfunctiondoesnotconstituteanimplicitdeclarationofavariableinthe t scopingunitthatcontainsit.Isthisaspecchange,astealthinterp,orjustclean-up? < DoNOTdoanyofthefollowingedits.JoRbelievesthattheexistingtextin02007r2isfinejustthe (  wayitisandnochangesareneeded.  ! 397:30-320 4 [Nowthatwehavedefined statemententityand constructentitywecansimplifythe $"# partaboutitnotbeinganimplicitdeclarationofavariableinthescopingunitthat "H$ containsitsstatementorconstruct(andalsospecifyitforstatementfunctiondummy #% argumentsatthesametime).Editor:Delete.]|$&4(#4(# 397:36-380 4 [Editor:Delete Theappearance...construct.] &h(4(#4(# 397:41+Same0 Theappearanceofanameasthenameofastatementorconstructentityisnot ' * animplicitdeclarationofavariableofthatnamewhosescopeisthescopingunit d(!+ thatcontainsitsstatementorconstruct.Astatementorconstructentityisnot ,)", accessibleoutsideofitsstatementorconstruct.)P#- (# (#  30  Notsurewhattodo +$/(#(# Donothingwithanyoftheissuesinthissection. t,%0 Ѐ[394:4]refersto Namedvariablesthatarenotstatementorconstructentities.Ican'tfindwhere <-&1  statementandconstructentitiesaredefinedtobevariables.So namedvariablesthatarenot .`'2 statementorconstructentitiesappearstobejust namedvariables.That'sprobablywrong,sowe  shouldperhapssaysomewherethatstatementandconstructentitiesarevariables. l  [394:19-395:6]doesn'tmakesense.[394:19-20]claimstobeaboutthenamesoflocalentities.Then X thenextthreeitemsintroducedbythatsentenceareaboutprocedurenameswithintheir   subprograms.Anameforanexternalprocedureisn'talocalnamewithinitssubprogram,butthe   parentheticremarksaysthatoneusageoftheprocedurenameisallowedonlyformoduleorinternal T  procedures,implyingthattheothercase,anexternalprocedure,isalocalentity.  x Ifaprocedureisrecursivelyreferencedfromwithinitself,doestheprocedurenameidentifythat    reference? t  Thepartsaboutcommonblocksappeartobeadequatelycoveredby16.2.1. `  The exceptpartoftheintrototheseitemsdoesn'tmakesense:Theappearanceofaprocedure   namewithinthatprocedureisn't inanotherscopingunit. \  Ifitems(1)!(3)actuallydomakesense,weneedtosaysomethingaboutreferringtotheprocedure H  nametogettheinterfaceforaprocedurepointerordeferredtype-boundproceduredeclaredwithin  thesubprogram.Theseitemsappeartoprohibitsuchusages. |  References   h 02-007r2,Fortran2000Draft 0 [EndofJ3/02-221r1]