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
7module pdfs
8  type :: pdf
9  contains
10    procedure, nopass :: getx
11  end type
12
13contains
14
15  real function getx()
16  end function
17
18end module
19
20program abstract
21  use pdfs
22  type(pdf) pp
23  print pp%getx()  ! { dg-error "must be of type default-kind CHARACTER or of INTEGER" }
24end program
25
26! { dg-final { cleanup-modules "pdfs" } }
27