URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [char_length_1.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do compile }`	`! { dg-do compile }`
`! { dg-options "-Wall -std=f2003" }`	`! { dg-options "-Wall -std=f2003" }`
`! Tests the patch for PR27996 and PR27998, in which warnings`	`! Tests the patch for PR27996 and PR27998, in which warnings`
`! or errors were not emitted when the length of character`	`! or errors were not emitted when the length of character`
`! constants was changed silently.`	`! constants was changed silently.`
`!`	`!`
`! Contributed by Tobias Burnus`	`! Contributed by Tobias Burnus`
`!`	`!`
`program test`	`program test`
`character(10) :: a(3)`	`character(10) :: a(3)`
`character(10) :: b(3)= &`	`character(10) :: b(3)= &`
`(/ 'Takata ', 'Tanaka', 'Hayashi' /) ! { dg-error "same length" }`	`(/ 'Takata ', 'Tanaka', 'Hayashi' /) ! { dg-error "same length" }`
`character(4) :: c = "abcde" ! { dg-warning "being truncated" }`	`character(4) :: c = "abcde" ! { dg-warning "being truncated" }`
`a = (/ 'Takata', 'Tanaka ', 'Hayashi' /) ! { dg-error "same length" }`	`a = (/ 'Takata', 'Tanaka ', 'Hayashi' /) ! { dg-error "same length" }`
`a = (/ 'Takata ', 'Tanaka ', 'Hayashi' /)`	`a = (/ 'Takata ', 'Tanaka ', 'Hayashi' /)`
`b = "abc"`	`b = "abc"`
`c = "abcdefg" ! { dg-warning "will be truncated" }`	`c = "abcdefg" ! { dg-warning "will be truncated" }`
`end program test`	`end program test`