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