2 ! This checks the fix for PR20244 in which USE association
3 ! of derived types would cause an ICE, if the derived type
4 ! was also available by host association. This occurred
5 ! because the backend declarations were different.
7 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
19 subroutine test(ze_in
)
32 type(t1
) :: res
= t1 (0)
35 if (res
%a
.ne
.42) STOP 1