gcc/testsuite/gfortran.dg/pr38868.f

   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" } } */