(j3.2006) f08/0079 example 2

[Bill Long]

The beginning of the code for Q2 in f08/0079 is

   Module m198_002b
     Use Iso_Fortran_Env
     Type t(p)
       Integer,Kind :: p
       Real(Selected_Real_Kind(p)) c
     Contains
       Procedure :: fwrite => fwrite_t
       Generic :: Write(Formatted) => fwrite
     End Type
     Type,Extends(t) :: t2(k)
       Integer,Kind :: k
       Integer(k) e
     End Type
   Contains
     Subroutine fwrite_t(dtv,unit,iotype,v_list,iostat,iomsg)
       Class(t),Intent(In) :: dtv
.....


Doesn't the t in class(t) in the last line need to have a kind type 
parameter specified?

Cheers,
Bill



-- 
Bill Long                                           longb at cray.com
Fortran Technical Support    &                 voice: 651-605-9024
Bioinformatics Software Development            fax:   651-605-9142
Cray Inc./Cray Plaza, Suite 210/380 Jackson St./St. Paul, MN 55101