| ! { 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 |