Commit f96c6123 by Tobias Schlüter Committed by Tobias Schlüter

re PR fortran/18600 (ICE NIST FM020.f reduced case)

PR fortran/18600
* gfortran.dg/stfunc_1.f90: New test.

From-SVN: r96389
parent ee943062
2003-03-13 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/18600
* gfortran.dg/stfunc_1.f90: New test.
2003-03-13 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/16907
* gfortran.dg/real_index_1.f90: New test.
......
! { dg-do run }
! this is a problem which disappeared between 2005-01-02 and 2005-03-13
! PR 18600
logical a, b
a(b) = .true.
b = .false.
if (a(.false.)) b = .true.
if (.not.b) call abort
end
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment