4 ! Check conformance of array actual arguments to
7 ! Contributed by Mikael Morin <mikael.morin@tele2.fr>
11 integer, parameter :: prec = 8
12 integer, parameter :: length = 10
14 elemental function Mul(a, b)
16 real(kind=prec) :: b, Mul
21 pure subroutine calcdAcc2(vectors, angles)
22 real(kind=prec), dimension(:) :: vectors
23 real(kind=prec), dimension(size(vectors),2) :: angles
24 intent(in) :: vectors, angles
25 real(kind=prec), dimension(size(vectors)) :: ax
26 real(kind=prec), dimension(size(vectors),2) :: tmpAcc
27 tmpAcc(1,:) = Mul(angles(1,1:2),ax(1)) ! Ok
28 tmpAcc(:,1) = Mul(angles(:,1),ax) ! OK
29 tmpAcc(:,:) = Mul(angles(:,:),ax) ! { dg-error "Incompatible ranks in elemental procedure" }
30 end subroutine calcdAcc2