1! { dg-do compile }
2! { dg-options "-Wall -std=f2003" }
3! Tests the patch for PR27996 and PR27998, in which warnings
4! or errors were not emitted when the length of character
5! constants was changed silently.
6!
7! Contributed by Tobias Burnus <tobias.burnus@physik.fu-berlin.de>
8!
9program test
10  implicit none
11  character(10) :: a(3)
12  character(10) :: b(3)= &
13       (/ 'Takata ', 'Tanaka', 'Hayashi' /) ! { dg-error "Different CHARACTER" }
14  character(4) :: c = "abcde"  ! { dg-warning "being truncated" }
15  a =  (/ 'Takata', 'Tanaka ', 'Hayashi' /) ! { dg-error "Different CHARACTER" }
16  a =  (/ 'Takata ', 'Tanaka ', 'Hayashi' /)
17  b = "abc" ! { dg-error "no IMPLICIT" }
18  c = "abcdefg"   ! { dg-warning "will be truncated" }
19end program test
20