OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [bounds_check_12.f90] - Rev 694

Compare with Previous | Blame | View Log

! { 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 <dominiq@lps.ens.fr>
!
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" }

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.