mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
27 lines
727 B
Plaintext
27 lines
727 B
Plaintext
! { 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
|