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
20