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