view gcc/testsuite/gfortran.dg/class_24.f03 @ 145:1830386684a0

gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
line wrap: on
line source

! { dg-do compile }
!
! PR 44869: [OOP] Missing TARGET check - and wrong code or accepts-invalid?
!
! Contributed by Satish.BD <bdsatish@gmail.com>

  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       ! { dg-error "is neither TARGET nor POINTER" }
  end subroutine

end