summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/data_array_6.f
blob: 64b492bc2dac342fdfe88edce965ace9accca785 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
! { dg-do compile }
!
! PR fortran/38404 - location marker in wrong line
! Testcase contributed by Steve Chapel <steve DOT chapel AT a2pg DOT com>
!

      CHARACTER(len=72) TEXT(3)
      DATA (TEXT(I),I=1,3)/
     &'a string without issues',
     &'a string with too many characters properly broken into the next
     &line but too long to fit the variable',
     &                                                                '
     &a string that started just at the end of the last line -- some 
     &may not be helped'/

      ! { dg-warning "truncated" "" { target *-*-* } 10 }
      ! { dg-warning "truncated" "" { target *-*-* } 12 }

      END