2 ! Test the fix for PR43180, in which patch which reduced the use of
3 ! internal_pack/unpack messed up the passing of ru(1)%c as the actual
4 ! argument at line 23 in this testcase.
6 ! Contributed by Harald Anlauf <anlauf@gmx.de>
7 ! further reduced by Tobias Burnus <burnus@gcc.gnu.org>
14 character(len=40) :: comment
17 type (t_rules), save :: ru (1)
19 subroutine get_rule (c)
22 if (any (c(:)%use .ne. 42)) call abort
23 call set_set_v (ru(1)%c, c)
24 if (any (c(:)%use .ne. 99)) call abort
26 subroutine set_set_v (src, dst)
27 type(t_set), intent(in) :: src(1)
28 type(t_set), intent(inout) :: dst(1)
29 if (any (src%use .ne. 99)) call abort
30 if (any (dst%use .ne. 42)) call abort
32 end subroutine set_set_v
33 end subroutine get_rule
34 end module mo_obs_rules
41 ! { dg-final { cleanup-modules "mo_obs_rules" } }