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) call abort