! { dg-do compile } | |
! { dg-additional-options "-Wcharacter-truncation" } | |
! PR 82743 - warnings were missing on truncation of structure | |
! constructors. | |
! Original test case by Simon KlΓΌpfel | |
PROGRAM TEST | |
TYPE A | |
CHARACTER(LEN=1) :: C | |
END TYPE A | |
TYPE(A) :: A1 | |
A1=A("123") ! { dg-warning "CHARACTER expression will be truncated" } | |
A1=A(C="123") ! { dg-warning "CHARACTER expression will be truncated" } | |
A1%C="123" ! { dg-warning "CHARACTER expression will be truncated" } | |
END PROGRAM TEST |