OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
PR fortran/30964
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
bound_1.f90
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