(j3.2006) f08/0079 example 2

Malcolm Cohen malcolm
Thu Sep 20 01:39:39 EDT 2012


>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
...
>     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?

Yes.  Judging by the main program unit immediately following, it should be 
Class(t(6)).

BTW, Q4 seems to have the same problem with a length type parameter, it looks 
like that one should be Class(t(*)).

Cheers,
-- 
................................Malcolm Cohen, Nihon NAG, Tokyo. 




More information about the J3 mailing list