Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/bound_1.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do run }
2 implicit none
3
4 type test_type
5 integer, dimension(5) :: a
6 end type test_type
7
8 type (test_type), target :: tt(2)
9 integer i
10
11 i = ubound(tt(1)%a, 1)
12 if (i/=5) call abort()
13 i = lbound(tt(1)%a, 1)
14 if (i/=1) call abort()
15
16 i = ubound(tt, 1)
17 if (i/=2) call abort()
18 i = lbound(tt, 1)
19 if (i/=1) call abort()
20 end