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