gcc/testsuite/gfortran.dg/typebound_proc_29.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 55959: [OOP] ICE in in gfc_simplify_expr, at fortran/expr.c:1920
   4 !
   5 ! Contributed by Tilo Schwarz <tilo@tilo-schwarz.de>
   6
   7 module pdfs
   8   type :: pdf
   9   contains
  10     procedure, nopass :: getx
  11   end type
  12
  13 contains
  14
  15   real function getx()
  16   end function
  17
  18 end module
  19
  20 program abstract
  21   use pdfs
  22   type(pdf) pp
  23   print pp%getx()  ! { dg-error "must be of type default-kind CHARACTER or of INTEGER" }
  24 end program
  25
  26 ! { dg-final { cleanup-modules "pdfs" } }