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