PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / block_16.f08
blob165c719cbbea76124489741cea6c76d98e3f617d
1 ! { dg-do compile )
2 ! PR82009  [F08] ICE with block construct
3 MODULE sparse_matrix_csx_benchmark_utils
4   IMPLICIT NONE
5 CONTAINS  
6   SUBROUTINE sparse_matrix_csr_benchmark ( )
7     WRITE(*,*) 'At*x: t'
8     block
9       integer, dimension(1), parameter :: idxs=[1]
10       integer :: i, idx
11       do i = 1, size(idxs)
12          idx = idxs(i)
13       enddo
14     end block
15   END SUBROUTINE sparse_matrix_csr_benchmark
16   SUBROUTINE sparse_matrix_csc_benchmark ( )
17     WRITE(*,*) 'An*x: t'
18     block
19       integer, dimension(1), parameter :: idxs=[1]
20       integer :: i, idx
21       do i = 1, size(idxs)
22          idx = idxs(i)
23       enddo
24     end block
25   END SUBROUTINE sparse_matrix_csc_benchmark
26 END MODULE sparse_matrix_csx_benchmark_utils