mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
15 lines
517 B
Fortran
15 lines
517 B
Fortran
! { 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
|