21 lines
347 B
Fortran
21 lines
347 B
Fortran
! { dg-do run }
|
|
implicit none
|
|
|
|
type test_type
|
|
integer, dimension(5) :: a
|
|
end type test_type
|
|
|
|
type (test_type), target :: tt(2)
|
|
integer i
|
|
|
|
i = ubound(tt(1)%a, 1)
|
|
if (i/=5) call abort()
|
|
i = lbound(tt(1)%a, 1)
|
|
if (i/=1) call abort()
|
|
|
|
i = ubound(tt, 1)
|
|
if (i/=2) call abort()
|
|
i = lbound(tt, 1)
|
|
if (i/=1) call abort()
|
|
end
|