2 ! Tests the fix for PR 31250.
3 ! The fix for PR fortran/67987 supercedes PR 31250, which removes
4 ! the -Wsurprising option.
6 CHARACTER(len
=0) :: c1
! This is OK.
7 CHARACTER(len
=-1) :: c2
10 CHARACTER(len
=min(I
,500)) :: c4
11 CHARACTER(len
=max(I
,500)) :: d1
! no warning
12 CHARACTER(len
=5) :: d2
! no warning
14 if (len(c1
) .ne
. 0) call link_error ()
15 if (len(c2
) .ne
. len(c1
)) call link_error ()
16 if (len(c3
) .ne
. len(c2
)) call link_error ()
17 if (len(c4
) .ne
. len(c3
)) call link_error ()
19 if (len(d1
) .ne
. 500) call link_error ()
20 if (len(d2
) .ne
. 5) call link_error ()