23 lines
840 B
Fortran
23 lines
840 B
Fortran
! { 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
|