mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
14 lines
378 B
Fortran
14 lines
378 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-Og -ffrontend-optimize -fcheck=bounds -fdump-tree-optimized" }
|
|
! Check that bounds checking is done only before the matrix
|
|
! multiplication.
|
|
|
|
module y
|
|
contains
|
|
subroutine x(a,b,c)
|
|
real, dimension(:,:) :: a, b, c
|
|
c = matmul(a,b)
|
|
end subroutine x
|
|
end module y
|
|
! { dg-final { scan-tree-dump-times "_runtime_error" 3 "optimized" } }
|