[fortran]module keywords implicit none type keyword character(:), allocatable :: c(:) end type keyword type(keyword) :: kw(10) end module keywords !****************************************************** module settings use keywords implicit none contains subroutine save_kw implicit none allocate(character(len=80) :: kw(1)%c(10)) kw(1)%c(1) = 'abcd' if (kw(1)%c(1)(1:1).eq.'a') then ! problem here with substring print *, 'yes' else print *, 'no' endif end subroutine save_kw end module settings !***************************************************** program ice use settings implicit none call save_kw end program ice[/fortran]Is the above valid? In any case, it gives an ICE. The problem is the (1:1) substring reference. It works fine without it and also works if the c() array length is not declared allocatable, iecharacter(80), allocatable:: c(:)array is ok.using w_fcompxe_2011.8.278 : todays update
