gcc/testsuite/gfortran.dg/class_dummy_8.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 contains
  13    subroutine s1(x)
  14       class(t) :: x(3)
  15    end
  16    subroutine s2(n, x)
  17       integer :: n
  18       class(t) :: x(n)
  19    end
  20 end