/* search the temporary list for a matching type */
for(oldp
= &tempvarlist
; p
= oldp
->nextp
; oldp
= p
)
if( (q
= p
->datap
) && (q
->vtype
== ttype
) &&
(q
->vtypep
== ttypep
) && eqdim(q
->vdim
,tdim
) )
q
->vtypep
= ( ttypep
? cpexpr(ttypep
) : PNULL
);
mkftnp(q
); /* assign fortran types */
p
->nextp
= thisexec
->temps
;
/* need a copy of the block for the temporary list and another for use */
ptr
gent(t
,tp
) /* make a temporary of type t, typepointer tp */
static struct varblock model
;
return( gentemp(&model
) );