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