1! { dg-do compile } 2! { dg-options "-Wcharacter-truncation" } 3subroutine where_ice (i,j) 4 5 implicit none 6 7 character(8) :: y(10,10,2) 8 9 integer :: i 10 integer :: j 11 12 character(12) :: txt(5) 13 if (.true.) where (txt(1:3) /= '' ) y(1:3,i,j) = txt(1:3) ! { dg-warning "CHARACTER expression will be truncated" } 14 15end subroutine where_ice 16