[Bug fortran/44869] [OOP] Missing TARGET check - and wrong code or accepts-invalid?

[janus at gcc dot gnu dot org]

------- Comment #3 from janus at gcc dot gnu dot org  2010-07-09 19:02 -------
Reduced test case:


  type :: test_case
  end type 

  type :: test_suite
    type(test_case) :: list
  end type

contains

  subroutine sub(self)
    class(test_suite), intent(inout) :: self
    type(test_case), pointer :: tst_case
    tst_case => self%list
  end subroutine

end



If one changes the CLASS into a TYPE, the correct error message appears:

    tst_case => self%list
                1
Error: Pointer assignment target is neither TARGET nor POINTER at (1)


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2010-07-09 19:02:36
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44869