Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/pr19928-1.f90 @ 128:fe568345ddd5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix CbC-example
author mir3636
date Wed, 11 Apr 2018 19:32:28 +0900
parents 04ced10e8804
children 84e7813d76e9
line wrap: on
line source

! PR 19928.  Check the use of constant substring indexes in a
! scalarization loop.
! { dg-do run }
program main
  implicit none
  character (len = 5), dimension (2) :: a
  character (len = 3), dimension (2) :: b
  a = (/ 'abcde', 'ghijk' /)
  b = a(:)(2:4)
  if (b(1) .ne. 'bcd' .or. b(2) .ne. 'hij') call abort
end program main