gcc/testsuite/gfortran.dg/class_dummy_9.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/105379
   4 ! Type comparison of class containers used to trigger an ICE when one of the
   5 ! class containers had a non-constant array spec.
   6 !
   7 ! Contributed by Gerhard Steinmetz <gscfq@t-online.de>.
   8
   9 program p
  10    type t
  11    end type
  12    integer :: m = 3
  13 contains
  14    subroutine s1(x)
  15       class(t) :: x(3)
  16    end
  17    subroutine s3(x)
  18       class(t) :: x(m)
  19    end
  20 end