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