17 lines
424 B
Fortran
17 lines
424 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 ("short", "this is long")
|
|
contains
|
|
subroutine test(r, s)
|
|
character(len=*) :: r, s
|
|
character(len=128) :: arr(2)
|
|
arr = (/ r, s /)
|
|
end subroutine test
|
|
end
|
|
! { dg-output "Different CHARACTER lengths \\(5/12\\) in array constructor" }
|