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
|
