| ! { dg-do compile } | |
| ! | |
| ! PR 55959: [OOP] ICE in in gfc_simplify_expr, at fortran/expr.c:1920 | |
| ! | |
| ! Contributed by Tilo Schwarz <tilo@tilo-schwarz.de> | |
| module pdfs | |
| type :: pdf | |
| contains | |
| procedure, nopass :: getx | |
| end type | |
| contains | |
| real function getx() | |
| end function | |
| end module | |
| program abstract | |
| use pdfs | |
| type(pdf) pp | |
| print pp%getx() ! { dg-error "must be of type default-kind CHARACTER or of INTEGER" } | |
| end program | |
| ! { dg-final { cleanup-modules "pdfs" } } |