OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [data_char_1.f90] - Blame information for rev 437

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn
! { dg-do run }
2
! Test character variables in data statements
3
! Also substrings of character variables.
4
! PR14976 PR16228
5
program data_char_1
6
  character(len=5) :: a(2)
7
  character(len=5) :: b(2)
8
  data a /'Hellow', 'orld'/       ! { dg-warning "string truncated" }
9
  data b(:)(1:4), b(1)(5:5), b(2)(5:5) &
10
      /'abcdefg', 'hi', 'j', 'k'/ ! { dg-warning "string truncated" }
11
 
12
  if ((a(1) .ne. 'Hello') .or. (a(2) .ne. 'orld ')) call abort
13
  if ((b(1) .ne. 'abcdj') .or. (b(2) .ne. 'hi  k')) call abort
14
end program

powered by: WebSVN 2.1.0

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