2 ! Test the fix for PR28601 in which line 55 would produce an ICE
3 ! because the rhs and lhs derived times were not identically
4 ! associated and so could not be cast.
6 ! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
18 type(typA
), pointer :: ofTypA(:,:)
22 !!! re-name and re-export typA as typB:
24 use modA
, only
: typB
=> typA
32 !!! mixed used of typA and typeB:
42 ! use modB, only: typB
43 ! use modA, only: typA
45 type(atom
),intent(inout
) :: a
47 ! *** end of interface ***
49 type(typB
), pointer :: ofTypB(:,:)
50 ! type(typA), pointer :: ofTypB(:,:)
55 a
%ofTypA(i
,j
) = ofTypB(k
,j
)
58 ! { dg-final { cleanup-modules "modA modB modC" } }