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
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|