Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/associate_24.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
25 call check (lbound (Q2, 1), ubound (Q2, 1) ,1 , 4) 25 call check (lbound (Q2, 1), ubound (Q2, 1) ,1 , 4)
26 endassociate 26 endassociate
27 contains 27 contains
28 subroutine check (lbnd, ubnd, lower, upper) 28 subroutine check (lbnd, ubnd, lower, upper)
29 integer :: lbnd, ubnd, lower, upper 29 integer :: lbnd, ubnd, lower, upper
30 if (lbnd .ne. lower) call abort 30 if (lbnd .ne. lower) STOP 1
31 if (ubnd .ne. upper) call abort 31 if (ubnd .ne. upper) STOP 2
32 end subroutine 32 end subroutine
33 END PROGRAM X 33 END PROGRAM X