1! { dg-do compile }
2! PR fortran/65173
3program min_obj
4   implicit none
5   integer, parameter :: a = 128
6   type :: param_t
7      integer :: n= 0
8      real*8, dimension(256), allocatable :: x           ! { dg-error "must have a deferred shape" }
9      real*8, dimension(2,256), allocatable :: bounds    ! { dg-error "must have a deferred shape" }
10      character(a), dimension(256), allocatable :: names ! { dg-error "must have a deferred shape" }
11   end type param_t
12   contains
13      subroutine extrace_params_from_section ( )
14         character(*), dimension(), parameter :: &      ! { dg-error "expression in array specification" }
15         & char_params = ['element', 'parametrization']
16      end subroutine extrace_params_from_section
17end program min_obj
18