3 ! PR 44565: [4.6 Regression] [OOP] ICE in gimplify_expr with array-valued generic TBP
5 ! Contributed by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de>
11 procedure :: get_array
12 generic :: get_something => get_array
17 function get_array(this)
19 real,dimension(2) :: get_array
20 end function get_array
22 subroutine do_something(this)
24 print *,this%get_something()
25 end subroutine do_something