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