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