diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/char_length_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/char_length_2.f90 | 22 |
1 files changed, 22 insertions, 0 deletions
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 |