gcc/testsuite/gfortran.dg/typebound_call_24.f03

   1 ! { dg-do compile }
   2 !
   3 ! PR 54243: [OOP] ICE (segfault) in gfc_type_compatible for invalid BT_CLASS
   4 !
   5 ! Contributed by Sylwester Arabas <slayoo@staszic.waw.pl>
   6
   7 module aqq_m
   8   type :: aqq_t
   9   contains
  10     procedure :: aqq_init
  11   end type
  12  contains
  13   subroutine aqq_init(this)
  14     class(aqq_t) :: this
  15   end subroutine
  16 end module
  17
  18 program bug2
  19   use aqq_m
  20   class(aqq_t) :: aqq  ! { dg-error "must be dummy, allocatable or pointer" }
  21   call aqq%aqq_init
  22 end program