declarations of intrinsic types using the full syntax of an intrinsic TYPE fail
program testit
implicit none
type(character(len=:)),allocatable :: line
type(character(len=256)) :: message
type(integer) :: istat
end program testit