gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_4.f90


1
2
3
4
5
6
7
8
9
10
11
12
13

! Check zero sized arrays work correcly
! From PR12704
program intrinsic_mmloc_4
  integer, allocatable, dimension(:) :: d
  integer, allocatable, dimension(:,:) :: a
  integer, dimension(2) :: b

  allocate (d(0))
  if (maxloc (d, 1) .ne. 0) call abort()
  allocate (a(1, 0))
  b = minloc (a)
  if (any (b .ne. 0)) call abort()
end program