| ! { 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) STOP 1 | |
| i = lbound(tt(1)%a, 1) | |
| if (i/=1) STOP 2 | |
| i = ubound(tt, 1) | |
| if (i/=2) STOP 3 | |
| i = lbound(tt, 1) | |
| if (i/=1) STOP 4 | |
| end |