blob: 0fd98c05be2d97e4c46597086c6207ba148901c1 (
plain)
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
integer :: m = 3
contains
subroutine s1(x)
class(t) :: x(3)
end
subroutine s3(x)
class(t) :: x(m)
end
end
|