| ! { dg-do compile } | |
| ! { dg-options "-Wcharacter-truncation" } | |
| subroutine where_ice (i,j) | |
| implicit none | |
| character(8) :: y(10,10,2) | |
| integer :: i | |
| integer :: j | |
| character(12) :: txt(5) | |
| where (txt(1:3) /= '' ) y(1:3,i,j) = txt(1:3) ! { dg-warning "CHARACTER expression will be truncated" } | |
| end subroutine where_ice |