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)