1! { dg-do compile }
2! Check that default initializer for allocatable components isn't accepted (PR
3! 20541)
4program main
5
6    type :: foo
7        integer, allocatable :: a(:) = [ 1 ] ! { dg-error "Initialization of allocatable" }
8
9        integer :: x ! Just to avoid "extra" error messages about empty type.
10    end type foo
11
12end program main
13