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