gcc/testsuite/gfortran.dg/class_16.f03

   1 ! { dg-do compile }
   2 !
   3 ! PR 43896: [fortran-dev Regression] ICE in gfc_conv_variable, at fortran/trans-expr.c:551
   4 !
   5 ! Contributed by Fran Martinez Fadrique <fmartinez@gmv.com>
   6
   7 module m_rotation_matrix
   8
   9   type t_rotation_matrix
  10     contains
  11       procedure :: array => rotation_matrix_array
  12   end type
  13
  14 contains
  15
  16   function rotation_matrix_array( rot ) result(array)
  17     class(t_rotation_matrix) :: rot
  18     double precision, dimension(3,3)    :: array
  19   end function
  20
  21 end module
  22
  23 ! { dg-final { cleanup-modules "m_rotation_matrix" } }