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
/
allocate_derived_5.f90
blob
70d63aa1a4646bf4ae43d7ecd35aa746b7a3668f
1
! { dg-do run }
2
!
3
! PR 45828: [4.6 Regression] No default initialization of derived type members?
4
!
5
! Contributed by Juha <jpr@csc.fi>
6
7
program
fail1
8
type
a
9
integer
::
i
10
end type
a
11
12
type
b
13
type
(
a
) ::
acomp
=
a
(
5
)
14
end type
b
15
16
type
(
b
),
allocatable
::
c
(:)
17
18
allocate
(
c
(
1
))
19
if
(
c
(
1
) %
acomp
%
i
/=
5
)
call
abort
()
20
end program
fail1