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