| ! { dg-do compile } |
| ! |
| ! Fix for PR53191 |
| ! |
| implicit none |
| type t0 |
| integer :: j = 42 |
| end type t0 |
| type, extends(t0) :: t1 |
| integer :: k = 99 |
| end type t1 |
| type t |
| integer :: i |
| class(t0), allocatable :: foo |
| end type t |
| type(t) :: m(4) |
| integer :: n |
| |
| do n = 1, 2 |
| allocate(m(n)%foo, source = t0(n*99)) |
| end do |
| do n = 3, 4 |
| allocate(m(n)%foo, source = t1(n*99, n*999)) |
| end do |
| |
| ! An array of objects with ultimate class components cannot be a selector |
| ! since each element could have a different dynamic type. (F2003 C614) |
| |
| select type(bar => m%foo) ! { dg-error "part reference with nonzero rank" } |
| type is(t0) |
| if (any (bar%j .ne. [99, 198, 297, 396])) STOP 1 |
| type is(t1) |
| STOP 2 |
| end select |
| |
| end |