Subversion Repositories openrisc_2011-10-31

! { 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