gcc/testsuite/gfortran.dg/class_57.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 59502: [OOP] ICE on invalid on pointer assignment to non-pointer CLASS
   4 !
   5 ! Contributed by Andrew Benson <abensonca@gmail.com>
   6
   7   implicit none
   8
   9   type :: d
  10   end type
  11
  12   type :: p
  13     class(d) :: cc   ! { dg-error "must be allocatable or pointer" }
  14   end type
  15
  16 contains
  17
  18   function pc(pd)
  19     type(p) :: pc
  20     class(d), intent(in), target :: pd
  21     pc%cc => pd   ! { dg-error "is not a member of" }
  22   end function
  23
  24 end