Sign in
gnu
/
gcc
/
refs/heads/devel/omp/gcc-9
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
structure_constructor_15.f90
blob: 583e3abafe1a2e7976ef25bfbd7e5bbda102f846 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR
85083
!
!
Testcase
from
PR
by
G
.
Steinmetz
<
gscfq@t
-
online
.
de
>
!
program p
type t
character
(
3
)
::
c
end
type t
type
(
t
),
allocatable
::
z
allocate
(
z
,
source
=
t
(.
true
.,
'abc'
))
!
{
dg
-
error
"Too many components"
}
end