mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
23 lines
466 B
Fortran
23 lines
466 B
Fortran
! { dg-do run }
|
|
! { dg-options "-fbounds-check" }
|
|
|
|
integer, parameter :: nx = 3, ny = 4
|
|
|
|
integer :: i, j, too_big
|
|
|
|
integer, parameter, dimension(nx,ny) :: p = &
|
|
reshape((/ (i*i, i=1,size(p)) /), shape(p))
|
|
|
|
integer, dimension(nx,ny) :: a
|
|
|
|
integer, dimension(:), allocatable :: b
|
|
|
|
allocate(b(nx))
|
|
|
|
a = p
|
|
too_big = ny + 1
|
|
|
|
b = sum(a(:,1:too_big),2)
|
|
end
|
|
! { dg-shouldfail "outside of expected range" }
|