Lisa Edwards schrieb:
> Hi,
>
> Is this a legal F90 program? The Sun WorkShop Compiler Fortran 90 2.0
> complains with
> f90: Internal Error, code=fw-interface-iexp-3663, last src=test_2d.f90:13
>
> 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
>
> while the following compiles just fine
>
> PROGRAM Test1d
> 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) )
> DEALLOCATE(test_type2)
> END PROGRAM Test1d
>
> Dave Hildes
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?
Regards,
Friedrich
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|