gcc/testsuite/gfortran.dg/data_array_6.f

   1 ! { dg-do "compile" }
   2 !
   3 ! PR fortran/38404 - location marker in wrong line
   4 ! Testcase contributed by Steve Chapel <steve DOT chapel AT a2pg DOT com>
   5 !
   6
   7       CHARACTER(len=72) TEXT(3)
   8       DATA (TEXT(I),I=1,3)/
   9      &'a string without issues',
  10      &'a string with too many characters properly broken into the next
  11      &line but too long to fit the variable',
  12      &                                                                '
  13      &a string that started just at the end of the last line -- some
  14      &may not be helped'/
  15
  16       ! { dg-warning "truncated" "" { target *-*-* } 10 }
  17       ! { dg-warning "truncated" "" { target *-*-* } 12 }
  18
  19       END