gcc/testsuite/gfortran.dg/block_16.f08

   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