error: in fold_convert HELP

[François-Xavier Coudert]

> Any chance you can cut sprk.f down to a small test program?
> If not, send me a copy of sprk.f off-line.

Sources seem to be available from 
http://fire.nist.gov/fds/download/fds4_05_source.tar (thanks Google!)

Reduced testcase is:
       TYPE MYTYPE
         REAL :: R
       END TYPE MYTYPE

       TYPE(MYTYPE), POINTER, DIMENSION(:) :: TT
       INTEGER :: I, J

       TT(I:J)%R = TT(I:J)%R
       END

Don't have time to look further myself.

FX