[Bug fortran/81903] compiler reports a language problem (Invalid character in name at)

[janus at gcc dot gnu.org]

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