| ! { dg-do run } |
| ! Test findloc with dim argument. |
| |
| program main |
| implicit none |
| real, dimension(2,2) :: a, b |
| logical, dimension(2,2) :: lo |
| a = reshape([1.,2.,3.,4.], shape(a)) |
| b = reshape([1.,1.,1.,1.], shape(b)) |
| |
| lo = .true. |
| |
| if (any(findloc(b,value=1.,dim=1) /= [1,1])) stop 1 |
| if (any(findloc(b,value=1.,dim=2) /= [1,1])) stop 2 |
| if (any(findloc(b,value=1.,dim=1,back=.true.) /= [2,2])) stop 3 |
| if (any(findloc(b,value=1.,dim=2,back=.true.) /= [2,2])) stop 4 |
| if (any(findloc(b,value=1.,dim=1,mask=lo) /= [1,1])) stop 5 |
| |
| if (any(findloc(b,value=1.,dim=1,mask=lo,back=.true.) /= [2,2])) stop 6 |
| if (any(findloc(b,value=1.,dim=1,mask=.not. lo) /= [0,0])) stop 7 |
| lo(1,1) = .false. |
| if (any(findloc(b,value=1.,dim=1,mask=lo) /= [2,1])) stop 8 |
| if (any(findloc(a,value=1.5,dim=2,back=.true.) /= [0,0])) stop 9 |
| if (any(findloc(a,value=1,dim=1,mask=lo) /= [0,0])) stop 10 |
| end program main |
