summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/alloc_comp_init_expr.f03
blob: 02ca7fc4e92c1f1f2758d69d8a4d475f213d3b9d (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