Puzzling error message: Colon found where not expected

The following test subroutine is compiled fine by FTN95 8.95 with or without /64, and by FTN95 9.0 with or without /64.

subroutine gcgris(ap,rr)
   
   implicit none
   real, dimension(:,0:), intent(in) :: ap
   real, dimension(:), intent(in)    :: rr
   
   real alpha,delta(0:5) 
   integer l, nbn
   
   l = 0
   nbn = 5
   delta(l) = dot_product(ap(1:nbn,l),ap(1:nbn,l))
   alpha = DOT_PRODUCT(rr(1:nbn),ap(1:nbn,l))/delta(l)
   print *,l,alpha,delta(l)
   return

end subroutine

However, with /64 /opt, FTN95 9.0 gives a puzzling error message:

'ERROR T:\HST3D\hst3d-2.2\hst\src\salbug\xcolon.F90 13: Colon found where not expected'

That pertains to the line 'alpha = ...'

mecej4

Many thanks for the feedback.

This failure has been fixed for the next release of FTN95. A temporary work-around is to add /inhibit_opt 96.

This new optimisation for DOT_PRODUCT can not be used on line 13 of this code and FTN95 will detect this in future.