1! { dg-do compile } 2! { dg-options "-O2 -fdump-rtl-expand" } 3 PROGRAM testcase 4 IMPLICIT NONE 5 6 CHARACTER*4 ANER(18) 7 CHARACTER*80 LINE 8 aner = '' 9 ANER(1)='A ' 10 ANER(2)=' ' 11 LINE=' ' 12 LINE(78:80)='xyz' 13 WRITE(*,'(A82)') "'"//LINE//"'" 14 END 15 16! { dg-final { scan-rtl-dump-times "line\\\+80" 0 "expand" } } 17! { dg-final { cleanup-rtl-dump "expand" } } */ 18