gcc/testsuite/gfortran.dg/class_dummy_8.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

! { dg-do compile }
!
! PR fortran/105379
! Type comparison of class containers used to trigger an ICE when one of the
! class containers had a non-constant array spec.
!
! Contributed by Gerhard Steinmetz <gscfq@t-online.de>.

program p
   type t
   end type
contains
   subroutine s1(x)
      class(t) :: x(3)
   end
   subroutine s2(n, x)
      integer :: n
      class(t) :: x(n)
   end
end