1! { dg-do run }
2! { dg-options "-fbounds-check" }
3! { dg-shouldfail "Incorrect extent in return value of MAXLOC intrinsic: is 3, should be 2" }
4module tst
5contains
6  subroutine foo(res)
7    integer(kind=4), allocatable :: f(:,:)
8    integer, dimension(:) :: res
9    allocate (f(2,5))
10    f = 3
11    res = maxloc(f)
12  end subroutine foo
13
14end module tst
15program main
16  use tst
17  implicit none
18  integer :: res(3)
19  call foo(res)
20end program main
21! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrinsic: is 3, should be 2" }
22