3 ! PR 47463: [OOP] ICE in gfc_add_component_ref
5 ! Contributed by Rich Townsend <townsend@astro.wisc.edu>
11 generic :: assignment(=) => assign
14 subroutine assign (this, that)
15 class(state_t), intent(inout) :: this
16 class(state_t), intent(in) :: that
18 end module hydro_state
23 class(state_t), allocatable :: st
26 subroutine init_comps (this, st)
27 class(flow_t), intent(out) :: this
28 class(state_t), intent(in) :: st
30 allocate(state_t :: this%st)
32 end subroutine init_comps