blob: e3b904fa8749092dc3c2fe01ce2f81717a884198 [file] [log] [blame]
! { dg-do compile }
! PR82009 [F08] ICE with block construct
MODULE sparse_matrix_csx_benchmark_utils
IMPLICIT NONE
CONTAINS
SUBROUTINE sparse_matrix_csr_benchmark ( )
WRITE(*,*) 'At*x: t'
block
integer, dimension(1), parameter :: idxs=[1]
integer :: i, idx
do i = 1, size(idxs)
idx = idxs(i)
enddo
end block
END SUBROUTINE sparse_matrix_csr_benchmark
SUBROUTINE sparse_matrix_csc_benchmark ( )
WRITE(*,*) 'An*x: t'
block
integer, dimension(1), parameter :: idxs=[1]
integer :: i, idx
do i = 1, size(idxs)
idx = idxs(i)
enddo
end block
END SUBROUTINE sparse_matrix_csc_benchmark
END MODULE sparse_matrix_csx_benchmark_utils