gcc/testsuite/gfortran.dg/typebound_call_31.f90

   1 ! { dg-do compile }
   2 ! PR 88008 - this use to ICE. Original test case by
   3 ! Gerhard Steinmetz.
   4
   5 module m
   6    type t
   7       integer, pointer :: z
   8    contains
   9       procedure :: g
  10    end type
  11 contains
  12    subroutine g(x)
  13       class(t) :: x
  14       call x%z%g()  ! { dg-error "Error in typebound call" }
  15    end
  16 end