1! Check zero sized arrays work correcly
2! From PR12704
3program intrinsic_mmloc_4
4  integer, allocatable, dimension(:) :: d
5  integer, allocatable, dimension(:,:) :: a
6  integer, dimension(2) :: b
7
8  allocate (d(0))
9  if (maxloc (d, 1) .ne. 0) STOP 1
10  allocate (a(1, 0))
11  b = minloc (a)
12  if (any (b .ne. 0)) STOP 2
13end program
14