intrinsic_mmloc_4.f90

来自「linux下编程用 编译软件」· F90 代码 · 共 14 行

! 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