https://gcc.gnu.org/bugzilla/show_bug.cgi?id=81903
janus at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |rejects-valid
Status|UNCONFIRMED |NEW
Last reconfirmed| |2017-08-21
CC| |janus at gcc dot gnu.org
Ever confirmed|0 |1
--- Comment #1 from janus at gcc dot gnu.org ---
Slightly reduced test case:
Module TestMod_C
Implicit None
Type :: TestType_A
Real :: a
End type
Type :: TestType_B
Real :: a
End type
Type :: TestType_C
Class(TestType_A), Pointer :: TT_A(:)
Type(TestType_B), Allocatable :: TT_B(:)
End type
contains
Subroutine SubSetPt(this)
class(TestType_C), Intent(InOut), Target :: this
integer :: i
associate(x=>this%TT_B,y=>this%TT_A)
Do i=1,size(x)
x(i)%a=>y(i)%a
End Do
end associate
End Subroutine
End Module
