re PR fortran/83548 (Compilation Error using logical function in parameter)
[official-gcc.git] / gcc / testsuite / gfortran.dg / select_type_28.f03
blob9cab721449122165874cf10d469f035945778417
1 ! { dg-do compile }
3 ! Fix for PR53191
5   implicit none
6   type t0
7     integer :: j = 42
8   end type t0
9   type, extends(t0) :: t1
10     integer :: k = 99
11   end type t1
12   type t
13     integer :: i
14     class(t0), allocatable :: foo
15   end type t
16   type(t) :: m(4)
17   integer :: n
19   do n = 1, 2
20     allocate(m(n)%foo, source = t0(n*99))
21   end do
22   do n = 3, 4
23     allocate(m(n)%foo, source = t1(n*99, n*999))
24   end do
26 ! An array of objects with ultimate class components cannot be a selector
27 ! since each element could have a different dynamic type. (F2003 C614)
29   select type(bar => m%foo) ! { dg-error "part reference with nonzero rank" }
30     type is(t0)
31       if (any (bar%j .ne. [99, 198, 297, 396])) call abort
32     type is(t1)
33       call abort
34   end select
36 end