1! { dg-do compile }
2! PR fortran/67939
3! Original code by Gerhard Steinmetz
4! gerhard dot steinmetz dot fortran at t-online dot de
5!
6program p
7   character(100) :: x
8   data x(998:99) /'ab'/   ! { dg-warning "Unused initialization string" }
9   call a
10end
11
12subroutine a
13   character(2) :: x
14   data x(:-1) /'ab'/      ! { dg-warning "Unused initialization string" }
15end subroutine a
16
17subroutine b
18   character(8) :: x
19   data x(3:1) /'abc'/     ! { dg-warning "Unused initialization string" }
20end subroutine b
21
22