ChangeLogs fixed, again.

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / char_length_1.f90

diff --git a/gcc/testsuite/gfortran.dg/char_length_1.f90 b/gcc/testsuite/gfortran.dg/char_length_1.f90
index e69de29..3f92f0e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/char_length_1.f90
+++ b/gcc/testsuite/gfortran.dg/char_length_1.f90
@@ -0,0 +1,19 @@
+! { dg-do compile }
+! { dg-options "-Wall -std=f2003" }
+! Tests the patch for PR27996 and PR27998, in which warnings
+! or errors were not emitted when the length of character
+! constants was changed silently.
+!
+! Contributed by Tobias Burnus <tobias.burnus@physik.fu-berlin.de> 
+!
+program test
+  implicit none
+  character(10) :: a(3)
+  character(10) :: b(3)= &
+       (/ 'Takata ', 'Tanaka', 'Hayashi' /) ! { dg-error "Different CHARACTER" }
+  character(4) :: c = "abcde"  ! { dg-warning "being truncated" }
+  a =  (/ 'Takata', 'Tanaka ', 'Hayashi' /) ! { dg-error "Different CHARACTER" }
+  a =  (/ 'Takata ', 'Tanaka ', 'Hayashi' /)
+  b = "abc" ! { dg-error "no IMPLICIT" }
+  c = "abcdefg"   ! { dg-warning "will be truncated" }
+end program test