repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
PR inline-asm/84742
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
typebound_proc_29.f90
blob
3e9a9aab634ae4f73b2684b119d1f7c82794a578
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