Subversion Repositories openrisc

! { dg-do run }

! { dg-options "-fbounds-check" }

! { dg-shouldfail "Different CHARACTER lengths" }

! Tests the fix for PR34396, where the non-constant string lengths in the

! array constructor were being ignored and the bounds checking was not

! being done correctly.

!

! Contributed by Dominique d'Humieres 

!

program array_char

  implicit none

  integer :: i, j(5)

  character (len=5) :: x, y

  character (len=5) :: z(2)

  x = "ab"

  y = "cd"

  z = ""

  z = (/y(1: len (trim(y))), x(1: len (trim(x)))/)

  j = ichar ([(z(1)(i:i), i=1,5)])

  if (any (j .ne. (/99,100,32,32,32/))) call abort ()

  j = ichar ([(z(2)(i:i), i=1,5)])

  if (any (j .ne. (/97,98,32,32,32/))) call abort ()

  x = "a "

  z = (/y(1: len (trim(y))), x(1: len (trim(x)))/)

end program array_char

! { dg-output "At line 24 of file .*" }

! { dg-output "Different CHARACTER lengths .2/1. in array constructor" }