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
2017-02-20 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
structure_constructor_13.f03
blob
c74e325ce895d413e5dfb46f1b6e28506ebf6d1b
1
! { dg-do run }
2
!
3
! Contributed by Melven Roehrig-Zoellner <Melven.Roehrig-Zoellner@DLR.de>
4
! PR fortran/66035
5
6
program test_pr66035
7
type t
8
end type t
9
type w
10
class(t), allocatable :: c
11
end type w
12
13
type(t) :: o
14
15
call test(o)
16
contains
17
subroutine test(o)
18
class(t), intent(inout) :: o
19
type(w), dimension(:), allocatable :: list
20
21
select type (o)
22
class is (t)
23
list = [w(o)] ! This caused an ICE
24
class default
25
call abort()
26
end select
27
end subroutine
28
end program