22 lines
530 B
Fortran
22 lines
530 B
Fortran
! { dg-do run }
|
|
! Test to make sure that PR 33354 remains fixed and doesn't regress
|
|
PROGRAM TST
|
|
IMPLICIT NONE
|
|
REAL :: A(1,3)
|
|
REAL :: B(3,1)
|
|
A(:,1) = 10
|
|
A(:,2) = 20
|
|
A(:,3) = 30
|
|
|
|
!WRITE(*,*) SUM(A(:,1:3),1)
|
|
!WRITE(*,*) MINLOC(SUM(A(:,1:3),1),1)
|
|
if (minloc(sum(a(:,1:3),1),1) .ne. 1) call abort()
|
|
if (maxloc(sum(a(:,1:3),1),1) .ne. 3) call abort()
|
|
|
|
B(1,:) = 10
|
|
B(2,:) = 20
|
|
B(3,:) = 30
|
|
if (minloc(sum(b(1:3,:),2),2) .ne. 1) call abort()
|
|
if (maxloc(sum(b(1:3,:),2),2) .ne. 3) call abort()
|
|
END PROGRAM TST
|