Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/bound_3.f90 @ 144:8f4e72ab4e11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix segmentation fault caused by nothing next cur_op to end
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Sun, 23 Dec 2018 21:23:56 +0900
parents 84e7813d76e9
children
line wrap: on
line source

! { dg-do run }
!
  call s(1,0)
  call s(2,0)
  call s(3,0)
  call s(4,0)
  call s(5,1)
  call s(6,2)
  call s(7,3)
contains
  subroutine s(n,m)
    implicit none
    integer n, m
    real x(10)
    if (any (lbound(x(5:n)) /= 1)) STOP 1
    if (lbound(x(5:n),1) /= 1) STOP 2
    if (any (ubound(x(5:n)) /= m)) STOP 3
    if (ubound(x(5:n),1) /= m) STOP 4
  end subroutine
end program