! { dg-do compile } | |
! { dg-options "-O2 -fdump-rtl-expand" } | |
PROGRAM testcase | |
IMPLICIT NONE | |
CHARACTER*4 ANER(18) | |
CHARACTER*80 LINE | |
aner = '' | |
ANER(1)='A ' | |
ANER(2)=' ' | |
LINE=' ' | |
LINE(78:80)='xyz' | |
WRITE(*,'(A82)') "'"//LINE//"'" | |
END | |
! { dg-final { scan-rtl-dump-times "line\\\+80" 0 "expand" } } | |
! { dg-final { cleanup-rtl-dump "expand" } } */ |