Subversion Repositories openrisc

! { dg-do compile }

!

! PR fortran/51652

!

! Contributed by David Kinniburgh

!

module settings

type keyword

  character(60), allocatable :: c(:)

end type keyword

type(keyword) :: kw(10)

contains

subroutine save_kw

  allocate(character(80) :: kw(1)%c(10)) ! { dg-error "with type-spec requires the same character-length parameter" }

end subroutine save_kw

subroutine foo(n)

  character(len=n+2), allocatable :: x

  allocate (character(len=n+3) :: x) ! { dg-error "type-spec requires the same character-length parameter" }

end subroutine foo

end module settings