Compile problem with nested type

module type_definitions
type AA
integer :: idn
type(BB),pointer :: n
end type AA
type BB
integer :: id
type(AA),pointer :: m
end type BB
end module type_definitions

subroutine findx(kk)
use type_definitions
implicit none
type(AA) :: kk
end subroutine findx

program main
use type_definitions
implicit none
character*18 ar,md
open(1,file='../../../Data/Model.dat')
read(1,'(a18)')ar
read(1,'(a18)')md
close(1)
end program main

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

"fortcom: Fatal: There has been an internal compiler error (C0000005)", but it works well with"ifort -o test test.f90" in IVF prompt. I am relly confused what is the difference between the two compile methods. Thanks for any comments.