17 lines
413 B
Fortran
17 lines
413 B
Fortran
! { dg-do run }
|
|
! { dg-options "-fbounds-check" }
|
|
! { dg-shouldfail "foo" }
|
|
!
|
|
! PR 36112
|
|
! Check correct bounds-checking behaviour for character-array-constructors.
|
|
|
|
call test ("this is long")
|
|
contains
|
|
subroutine test(s)
|
|
character(len=*) :: s
|
|
character(len=128) :: arr(2)
|
|
arr = (/ s, "abc" /)
|
|
end subroutine test
|
|
end
|
|
! { dg-output "Different CHARACTER lengths \\(12/3\\) in array constructor" }
|