gcc/testsuite/gfortran.dg/pointer_assign_7.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 39931: ICE on invalid Fortran 95 code (bad pointer assignment)
   4 !
   5 ! Contributed by Thomas Orgis <thomas.orgis@awi.de>
   6
   7 program point_of_no_return
   8
   9 implicit none
  10
  11 type face_t
  12   integer :: bla
  13 end type
  14
  15 integer, pointer :: blu
  16 type(face_t), pointer :: face
  17
  18 allocate(face)
  19 allocate(blu)
  20
  21 face%bla => blu  ! { dg-error "Non-POINTER in pointer association context" }
  22
  23 end program
  24