[Bug fortran/31203] Character length should never be negative

[fxcoudert at gcc dot gnu dot org]

------- Comment #3 from fxcoudert at gcc dot gnu dot org  2007-03-16 20:57 -------
Another testcase, from the duplicate 31208:

$ cat a.f90 
SUBROUTINE S1(I,J)
character(len=I-J) :: a
IF (LEN(a)<0) CALL ABORT()
END SUBROUTINE
CALL S1(1,2)
END
$ gfortran -static a.f90  && ./a.out
Aborted


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
            Summary|wrong code generated with   |Character length should
                   |gfortran                    |never be negative


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31203