URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
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
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.