1! { dg-do compile }
2!
3! PR 44565: [4.6 Regression] [OOP] ICE in gimplify_expr with array-valued generic TBP
4!
5! Contributed by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de>
6
7module ice6
8
9  type :: t
10   contains
11     procedure :: get_array
12     generic :: get_something => get_array
13  end type
14
15contains
16
17  function get_array(this)
18    class(t) :: this
19    real,dimension(2) :: get_array
20  end function get_array
21
22  subroutine do_something(this)
23    class(t) :: this
24    print *,this%get_something()
25  end subroutine do_something
26
27end module ice6
28