Subversion Repositories openrisc

! { 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