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 target/83368
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
typebound_call_24.f03
blob
45990aebe41c336436fe90221d0b87f07074105b
1
! { dg-do compile }
2
!
3
! PR 54243: [OOP] ICE (segfault) in gfc_type_compatible for invalid BT_CLASS
4
!
5
! Contributed by Sylwester Arabas <slayoo@staszic.waw.pl>
6
7
module aqq_m
8
type :: aqq_t
9
contains
10
procedure :: aqq_init
11
end type
12
contains
13
subroutine aqq_init(this)
14
class(aqq_t) :: this
15
end subroutine
16
end module
17
18
program bug2
19
use aqq_m
20
class(aqq_t) :: aqq ! { dg-error "must be dummy, allocatable or pointer" }
21
call aqq%aqq_init
22
end program