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
[AArch64] Merge stores of D-register values with different modes
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
allocate_derived_5.f90
blob
00aa0cc8a6b345776ca5b4e8618c0c8d34ee4fba
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
)
STOP
1
20
end program
fail1