Subject: Corrections to C.9.6 J3/03-139r1 From: Kurt W. Hirchert (Meeting 164) 01 Apr 2003 Data SG has decided to address US item 2.1 in a different way, but the example in C.9.6 still needs correcting. ===== Edits ===== All edits are expressed relative to J3/02-007r3: 1. 469:23 Replace " .;.." with "; ...". 2. 469:27-31 <<<<< CALL TUB2 ( P3 ) ! Invalid -- The declared type of P3 differs from ! the declared type of D2. CALL TUB2 ( P3%POINT ) ! Valid alternative to the above CALL TUB3 ( P2 ) ! Invalid -- The declared type of P2 differs from ! the declared type of D3. SELECT TYPE ( P2 ) ! Valid conditional alternative to the above CLASS IS ( COLOR_POINT ) ! Works if the dynamic type of P2 is the CALL TUB3 ( P2 ) ! same as the declared type of D3, or a ! type extended therefrom. CLASS DEFAULT ! Cannot work if not. END SELECT >>>>> 3. 469:39-41 <<<<< CALL SUB3 ( P2 ) ! Invalid -- The declared type of P2 is neither ! the same as nor extended from the ! the declared type of X2. SELECT TYPE ( P2 ) ! Valid conditional alternative to the above CLASS IS ( COLOR_POINT ) ! Works if the dynamic type of P2 is the CALL SUB3 ( P2 ) ! same as the declared type of X3, or a ! type extended therefrom. CLASS DEFAULT ! Cannot work if not. END SELECT >>>>> The editor is given license to adjust the line breaks in the multi- line comments. (The line breaks that look right in the text format of this paper appear to create shorter lines than those in the existing lines of the example in C.9.6.) - end -