blob: 94e5d00b0641e64156cfc9397f50eb91bddca9be [file] [log] [blame]
! { dg-do run }
! { dg-additional-options "-fdump-tree-original" }
program main
implicit none
integer, parameter :: z(0) = 0
integer, parameter, dimension(1) :: a = minloc(z)
integer, parameter, dimension(1) :: b = minloc(z,mask=z>0)
integer, parameter :: c = minloc(z,dim=1)
integer, parameter, dimension(1) :: d = maxloc(z)
integer, parameter, dimension(1) :: e = maxloc(z,mask=z>0)
integer, parameter :: f = maxloc(z,dim=1)
character(len=12) line
if (a(1) /= 0) stop 1
if (b(1) /= 0) stop 2
if (c /= 0) stop 3
if (d(1) /= 0) stop 4
if (e(1) /= 0) stop 5
if (f /= 0) stop 6
write (unit=line,fmt='(6I2)') minloc(z), minloc(z,mask=z>0), minloc(z,dim=1), &
maxloc(z), maxloc(z,mask=z<0), maxloc(z,dim=1)
if (line /= ' 0 0 0 0 0 0') stop 7
end program main
! { dg-final { scan-tree-dump-times "_gfortran_stop" 1 "original" } }