blob: 3e9a9aab634ae4f73b2684b119d1f7c82794a578 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! { 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
|
