From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001 From: upstream source tree Date: Sun, 15 Mar 2015 20:14:05 -0400 Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream tarball. downloading a git-generated archive based on the 'upstream' tag should provide you with a source tree that is binary identical to the one extracted from the above tarball. if you have obtained the source via the command 'git clone', however, do note that line-endings of files in your working directory might differ from line-endings of the respective files in the upstream repository. --- gcc/testsuite/gfortran.dg/char_length_2.f90 | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/char_length_2.f90 (limited to 'gcc/testsuite/gfortran.dg/char_length_2.f90') diff --git a/gcc/testsuite/gfortran.dg/char_length_2.f90 b/gcc/testsuite/gfortran.dg/char_length_2.f90 new file mode 100644 index 000000000..5673a2ed5 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/char_length_2.f90 @@ -0,0 +1,22 @@ +! { dg-do link } +! { dg-options "-Wsurprising" } +! Tests the fix for PR 31250 +! CHARACTER lengths weren't reduced early enough for all checks of +! them to be meaningful. Furthermore negative string lengths weren't +! dealt with correctly. +CHARACTER(len=0) :: c1 ! This is OK. +CHARACTER(len=-1) :: c2 ! { dg-warning "has negative length" } +PARAMETER(I=-100) +CHARACTER(len=I) :: c3 ! { dg-warning "has negative length" } +CHARACTER(len=min(I,500)) :: c4 ! { dg-warning "has negative length" } +CHARACTER(len=max(I,500)) :: d1 ! no warning +CHARACTER(len=5) :: d2 ! no warning + +if (len(c1) .ne. 0) call link_error () +if (len(c2) .ne. len(c1)) call link_error () +if (len(c3) .ne. len(c2)) call link_error () +if (len(c4) .ne. len(c3)) call link_error () + +if (len(d1) .ne. 500) call link_error () +if (len(d2) .ne. 5) call link_error () +END -- cgit v1.2.3