Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/bound_3.f90 @ 127:4c56639505ff
fix function.c and add CbC-example Makefile
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 18:46:58 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
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)) call abort if (lbound(x(5:n),1) /= 1) call abort if (any (ubound(x(5:n)) /= m)) call abort if (ubound(x(5:n),1) /= m) call abort end subroutine end program