URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 302 |
Rev 384 |
! { dg-do compile }
|
! { dg-do compile }
|
! { dg-options "-O2 -fdump-rtl-expand" }
|
! { dg-options "-O2 -fdump-rtl-expand" }
|
PROGRAM testcase
|
PROGRAM testcase
|
IMPLICIT NONE
|
IMPLICIT NONE
|
|
|
CHARACTER*4 ANER(18)
|
CHARACTER*4 ANER(18)
|
CHARACTER*80 LINE
|
CHARACTER*80 LINE
|
aner = ''
|
aner = ''
|
ANER(1)='A '
|
ANER(1)='A '
|
ANER(2)=' '
|
ANER(2)=' '
|
LINE=' '
|
LINE=' '
|
LINE(78:80)='xyz'
|
LINE(78:80)='xyz'
|
WRITE(*,'(A82)') "'"//LINE//"'"
|
WRITE(*,'(A82)') "'"//LINE//"'"
|
END
|
END
|
|
|
! { dg-final { scan-rtl-dump-times "line\\\+80" 0 "expand" } }
|
! { dg-final { scan-rtl-dump-times "line\\\+80" 0 "expand" } }
|
! { dg-final { cleanup-rtl-dump "expand" } } */
|
! { dg-final { cleanup-rtl-dump "expand" } } */
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.