Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/allocate_with_typespec_5.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { 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