> > PROGRAM Test2d
> > IMPLICIT NONE
> >
> > TYPE type1
> > REAL, POINTER:: realNum
> > END TYPE Type1
> > TYPE type2
> > TYPE(type1), DIMENSION(2) :: test_type1
> > END TYPE Type2
> >
> > type(type2), dimension(:,:), allocatable :: test_type2
> >
> > ALLOCATE( test_type2(3,3) )
> > DEALLOCATE(test_type2)
> > END PROGRAM Test2d
>
> Looks legal to me and it works with Digital Visual Fortran 6.0
>
> But a question: why do you want a POINTER in type1?
> Is it not just REAL what you want?
Well, in the actual program type1 is a part of a linked list, I simplified
it for the example. Thanks for the help, and I did send a bug-report to
SUN, just thought I would check with the F90 experts to see if I was
performing some stupidity or another.
Dave Hildes
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|