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