blob: 5e399ac7114b2e6cf4d1b7a0f8dcb86a79bc0916 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { dg-do "compile" }
! PR fortran/34402 - allocatable components shall not be
! data-initialized in init expr
type t
real, allocatable :: x(:)
end type
! The following is illegal!
type (t) :: bad = t ( (/ 1., 3., 5., 7., 9. /) ) ! { dg-error "Invalid initialization expression" }
! This is ok
type (t) :: ok = t ( NULL() )
end
|