gcc/testsuite/gfortran.dg/charlen_01.f90

   1 ! { dg-do compile }
   2 ! PR fortran/65173
   3 program 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
  17 end program min_obj