compiler error in associate statement

I get an internal compiler error with the following code. 

program main
 implicit none
 integer,dimension(3) :: a
 integer,dimension(4,4) :: b
a=(/1,2,4/)
 associate(p=>b(:,a))
 end associate
end program

On the other hand, I get no compilation errors with this other code:

program main
implicit none
integer,dimension(4,4) :: b
associate(p=>b(:,1:2:4))
end associate
end program

What am I missing here?*

* compiled with ifort version 13.0.1 under linux mint 14